quote handling -- fixes #583

R/importRDB1.r

@@ -135,6 +135,7 @@ importRDB1 <- function(obs_url, asDateTime=TRUE, convertType = TRUE, tz="UTC"){
   if(data.rows > 0){
     args_list <- list(file = f,
                  delim = "\t",
+                 quote = "",
                  skip = meta.rows + 2,
                  col_names = FALSE)
     if(utils::packageVersion("readr") > 1.4){

tests/testthat/tests_imports.R

@@ -44,6 +44,24 @@ test_that("External importRDB1 tests", {
                           statCd = "laksjd")
   # And....now there's data there:
   expect_null(importRDB1(url))
+  
+  site <- "11486500"
+  
+  url <- dataRetrieval:::drURL("site", arg.list = list(siteOutput = "Expanded", 
+                                                       format = "rdb", 
+                                                       site = site))
+  site_data <- importRDB1(url)
+  
+  expect_equal(site_data$station_nm, "\"G\" CANAL NEAR OLENE,OREG.")
+  
+  site <- "040854588204"
+  
+  url <- dataRetrieval:::drURL("site", arg.list = list(siteOutput = "Expanded", 
+                                                       format = "rdb", 
+                                                       site = site))
+  site_data <- importRDB1(url)
+  
+  expect_equal(site_data$station_nm, "\"FISHER CR AT 32 & HIGHLAND RD AT HOWARDS GROVE, W")
 })
 
 context("importRDB")