refactor Cellosaurus functionality

bhklab · Dec 16, 2023 · 990d3a2 · 990d3a2
1 parent d4782b7
commit 990d3a2
Show file tree

Hide file tree

Showing 8 changed files with 430 additions and 249 deletions.
diff --git a/R/getCellosaurus.R b/R/getCellosaurus.R
@@ -286,12 +286,17 @@ getCellosaurus <-
     return(op_dt)
     }
 
-
-#'
-#'
+#' Fetches the complete Cellosaurus data
+#' 
+#' This function fetches the complete Cellosaurus data and converts it 
+#' into a data table using the Cellosaurus package. 
+#' 
 #' @export
-getCellosaurusDataFrame <- function(url) {
-
-}
-
+#' @return A data table containing the complete Cellosaurus data
+getCompleteCellosaurusObject <- function() {
 
+  message("Fetching Cellosaurus Data")
+  message("This may take up to 15 minutes and it is recommended to save 
+          the output for future use")
+  Cellosaurus::Cellosaurus()
+}