From 113c38a5ced8123fe23ae95871fb4a8eb5ac011c Mon Sep 17 00:00:00 2001 From: ldavies99 Date: Wed, 25 Oct 2023 13:36:01 +0100 Subject: [PATCH] Fix trailing commas --- R/question-routing.R | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/R/question-routing.R b/R/question-routing.R index 3ba2c1e..39b314c 100644 --- a/R/question-routing.R +++ b/R/question-routing.R @@ -32,8 +32,7 @@ apply_skip_logic <- function(data) { data$code_freq != "Never", data$other_coding_experience != "No", data$heard_of_RAP != "No", - data$have_RAP_champ %in% c("Yes", "test"), - ) + data$have_RAP_champ %in% c("Yes", "test")) skipped_cols <- list(colnames(data)[which(colnames(data) == "CS_grade"):which(colnames(data) == "ONS_directorate")], colnames(data)[which(colnames(data) == "CS_grade"):which(colnames(data) == "Northern_Ireland_NHS_organisation")], @@ -53,8 +52,7 @@ apply_skip_logic <- function(data) { colnames(data)[which(colnames(data) == "line_manage"):which(colnames(data) == "reproducible_workflow")], colnames(data)[which(colnames(data) == "first_learned")], colnames(data)[which(colnames(data) == "have_RAP_champ"):which(colnames(data) == "RAP_comments")], - colnames(data)[which(colnames(data) == "know_RAP_champ")], - ) + colnames(data)[which(colnames(data) == "know_RAP_champ")]) for(i in 1:length(conditions)){ data <- enforce_skip_logic(data, conditions[[i]], skipped_cols[[i]])