add file conversion function

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(compare_sessions)
+export(convert_output)
 export(domain_mapping)
 export(user_categorisation)
 import(cli)

R/convert_output.R

@@ -0,0 +1,37 @@
+#' convert_output
+#'
+#' The 'OUTPUT_' file groups multiple categorisations onto one line e.g. '1,3' \cr \cr
+#' This function creates a new longer output 'L-OUTPUT_' which gives each categorisation its own row \cr \cr
+#' This 'L-OUTPUT_' may be more useful when using these csv files in later analyses
+#' @param output_csv The name of the 'OUTPUT_' csv file that was created from domain_mapping.R
+#' @param output_dir The location of output_csv
+#' @return The function will return 'L-OUTPUT_' in the same output_dir
+#' @export
+#' @importFrom utils read.csv write.csv
+
+convert_output <- function(output_csv,output_dir) {
+
+output <- read.csv(paste0(output_dir,'/',output_csv))
+output_long <- output[0,] #make duplicate
+
+for (row in 1:(nrow(output))) {
+  if (grepl(',',output$Domain_code[row])){ #Domain_code for this row is a list
+    domain_code_list <- output$Domain_code[row] #extract Domain_code list
+    domain_code_list_split <- unlist(strsplit(domain_code_list, ",")) #split the list
+    for (code in 1:(length(domain_code_list_split))){ #for every domain code in list, create a new row
+      row_to_copy <- output[row,] #extract row
+      row_to_copy$Domain_code <- domain_code_list_split[code] #change domain code to single
+      output_long[nrow(output_long) + 1,] = row_to_copy #copy altered row
+    }
+  } else { #Domain_code for this row is not list
+    row_to_copy <- output[row,] #extract row
+    output_long[nrow(output_long) + 1,] = row_to_copy #copy unaltered row
+  }
+}
+
+# Save output_long
+utils::write.csv(output_long, paste0(output_dir,'/','L-',output_csv),row.names = FALSE)
+
+}
+
+