remove duplicate paste

nmdefries · capnrefsmmat · web-flow · commit 34d75d213588 · 2021-11-04T14:17:41.000-04:00
Co-authored-by: Alex Reinhart &lt;areinhar@stat.cmu.edu&gt;
diff --git a/facebook/delphiFacebook/R/responses.R b/facebook/delphiFacebook/R/responses.R
@@ -38,7 +38,7 @@ load_responses_all <- function(params, contingency_run = FALSE) {
   which_errors <- unlist(lapply(input_data, inherits, "try-error"))
   if (any( which_errors )) {
     errored_filenames <- paste(params$input[which_errors], collapse=", ")
-    stop(paste("ingestion and field creation failed for input data file(s)", errored_filenames))
+    stop("ingestion and field creation failed for input data file(s)", errored_filenames)
   }
   
   input_data <- bind_rows(input_data)

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ load_responses_all <- function(params, contingency_run = FALSE) {`
`38`	`38`	`which_errors <- unlist(lapply(input_data, inherits, "try-error"))`
`39`	`39`	`if (any( which_errors )) {`
`40`	`40`	`errored_filenames <- paste(params$input[which_errors], collapse=", ")`
`41`		`- stop(paste("ingestion and field creation failed for input data file(s)", errored_filenames))`
	`41`	`+ stop("ingestion and field creation failed for input data file(s)", errored_filenames)`
`42`	`42`	`}`
`43`	`43`
`44`	`44`	`input_data <- bind_rows(input_data)`