fix: write redundant states to one line

Previously it would write to 5 columns, meaning only the last <5 states
were written to the optimum states text file.

Rscripts/RedundantStateChecker.R

@@ -336,5 +336,9 @@ write("\nDetermined redundant states:", file = output_file, append = TRUE)
 if (length(redundant_states) == 0) {
   write("NONE", file = output_file, append = TRUE)
 } else {
-  write(redundant_states, file = output_file, append = TRUE)
+  write(redundant_states,
+    file = output_file,
+    ncolumns = length(redundant_states),
+    append = TRUE
+  )
 }