Skip to content

Commit 2e6cf7d

Browse files
committed
combine rename calls into one
1 parent 472faa0 commit 2e6cf7d

File tree

2 files changed

+9
-5
lines changed

2 files changed

+9
-5
lines changed

facebook/delphiFacebook/R/responses.R

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -505,10 +505,12 @@ bodge_E1 <- function(input_data, wave) {
505505
assert(!(E14_present && E47_present), "fields E1_1-E1_4 should not be present at the same time as fields E1_4-E1_7")
506506

507507
if ( E47_present ) {
508-
input_data <- rename(input_data, E1_1 = "E1_4")
509-
input_data <- rename(input_data, E1_2 = "E1_5")
510-
input_data <- rename(input_data, E1_3 = "E1_6")
511-
input_data <- rename(input_data, E1_4 = "E1_7")
508+
input_data <- rename(input_data,
509+
E1_1 = "E1_4",
510+
E1_2 = "E1_5",
511+
E1_3 = "E1_6",
512+
E1_4 = "E1_7"
513+
)
512514
}
513515
return(input_data)
514516
}

facebook/delphiFacebook/man/bodge_E1.Rd

Lines changed: 3 additions & 1 deletion
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)