turned off progress indication for fread for neonet/b

ropensci · Dec 19, 2023 · df08d27 · df08d27
1 parent 92a651e
commit df08d27
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 2 deletions.
diff --git a/R/get_neonet.R b/R/get_neonet.R
@@ -4,7 +4,12 @@ get_neonet <- function(db_url = get_db_url("neonet")) {
 
   check_connection_to_url(db_url)
 
-  c14dates <- data.table::fread(db_url, na.strings = c("n/d", "n/a"))
+  c14dates <- data.table::fread(
+    db_url,
+    na.strings = c("n/d", "n/a"),
+    colClasses = "character",
+    showProgress = FALSE
+  )
 
   neonet <- c14dates %>%
     dplyr::transmute(

diff --git a/R/get_neonetb.R b/R/get_neonetb.R
@@ -4,7 +4,12 @@ get_neonetb <- function(db_url = get_db_url("neonetb")) {
 
   check_connection_to_url(db_url)
 
-  c14dates <- data.table::fread(db_url, na.strings = c("NA","n/a","n/d"))
+  c14dates <- data.table::fread(
+    db_url,
+    na.strings = c("NA","n/a","n/d"),
+    colClasses = "character",
+    showProgress = FALSE
+  )
 
   neonetb <- c14dates %>%
     dplyr::transmute(