Shorter line

ropensci · May 22, 2020 · c07ccd9 · c07ccd9
1 parent 55da914
commit c07ccd9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/read_survey.R b/R/read_survey.R
@@ -117,7 +117,9 @@ read_survey <- function(file_name,
       n_max = 1
     ))
 
-    names(rawdata) <- jsonlite::fromJSON(paste0('[', paste(as.character(unlist(new_ids)), collapse = ','), ']'))$ImportId
+    names(rawdata) <- jsonlite::fromJSON(
+      paste0('[', paste(as.character(unlist(new_ids)), collapse = ','), ']')
+    )$ImportId
   }
 
   # If Qualtrics adds an empty column at the end, remove it