Fix comma in comment - write_derived

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: mrgda
 Title: Tools for Data Assembly
-Version: 0.12.0
+Version: 0.12.0.8000
 Authors@R: 
     c(
     person(given = "Eric", family = "Anderson", email = "[email protected]", role = c("aut", "cre")),

R/write-derived.R

@@ -157,6 +157,12 @@ write_derived <- function(.data, .spec, .file, .comment = NULL, .subject_col = "
 
 
   # Update history ----------------------------------------------------------
+
+  # Protect against commas in comment
+  if (!is.null(.comment)) {
+    .comment <- gsub(",", " ", .comment, fixed=TRUE)
+  }
+
   .history <-
     gather_data_history(
       .cur_data = .data,

tests/testthat/test-write-derived.R

@@ -78,4 +78,14 @@ test_that("if yspec check fails  write derived does not continue", {
   expect_error(write_derived(.data = nm, .spec = nm_spec, .file =  paste0(tempfile(), ".csv"), .compare_from_svn = FALSE))
 })
 
+test_that("comma is automatically removed from comment", {
+  file_loc <- tempfile()
+  write_derived(.data = nm,
+                .spec = nm_spec,
+                .file = paste0(file_loc, ".csv"),
+                .comment = "Add var1, var2, var3",
+                .compare_from_svn = FALSE)
+  df <- read_csv_dots(paste0(file_loc, "/history.csv"))
+  expect_true(df$Comment == "Add var1  var2  var3")
+})