Merge pull request #163 from Sage-Bionetworks/patch-fread

force first line to be header
Sage-Bionetworks · Aug 25, 2021 · d0a5a64 · d0a5a64
2 parents ea37c11 + af245b5
commit d0a5a64
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/R/functions.R b/R/functions.R
@@ -14,9 +14,15 @@
 #'
 #'}
 get_data <- function(synid, version = NULL) {
-  df <- tibble::as_tibble(data.table::fread(synapser::synGet(synid,
-                                                     version = as.numeric(version)
-                                                     )$path))
+  df <- tibble::as_tibble(
+    data.table::fread(
+      synapser::synGet(
+        synid,
+        version = as.numeric(version)
+        )$path,
+      header = TRUE
+      )
+    )
   df
 }
 #' Create complete URL to Synapse entity