change to character

ropensci · Jan 9, 2024 · 7f0cad9 · 7f0cad9
1 parent 45f5217
commit 7f0cad9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/R/realtime-webservice.R b/R/realtime-webservice.R
@@ -145,7 +145,8 @@ realtime_ws <- function(station_number, parameters = NULL,
     get_ws,
     type = "text/csv",
     encoding = "UTF-8",
-    col_types = "cTidcci")
+    col_types = "cTidccc"
+    )
 
   ## Check here to see if csv_df has any data in it
   if (nrow(csv_df) == 0) {

diff --git a/tests/testthat/test-realtime-webservice.R b/tests/testthat/test-realtime-webservice.R
@@ -39,8 +39,9 @@ test_that("realtime_ws fails with incorrectly specified date", {
 test_that("realtime_ws succeed specifying only date; no time", {
   skip_on_cran()
 
-  sdate <- Sys.Date() - 1
-  edate <- Sys.Date()
+  today <- as.Date(as.POSIXct(Sys.time(), tz = "UTC"))
+  sdate <- today - 1
+  edate <- today
 
   output <- realtime_ws(
     station_number = "08MF005",