Merge pull request #170 from seanchrismurphy/patch-1

Update read_survey.R
ropensci · May 22, 2020 · 324edc9 · 324edc9
2 parents fecbb88 + c07ccd9
commit 324edc9
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/read_survey.R b/R/read_survey.R
@@ -117,8 +117,9 @@ read_survey <- function(file_name,
       n_max = 1
     ))
 
-    names(rawdata) <- gsub("^\\{'ImportId': '(.*)'\\}$", "\\1",
-                           unlist(new_ids))
+    names(rawdata) <- jsonlite::fromJSON(
+      paste0('[', paste(as.character(unlist(new_ids)), collapse = ','), ']')
+    )$ImportId
   }
 
   # If Qualtrics adds an empty column at the end, remove it