Simulated data file comma separated does not permit comma separated headers

[CSJCampbell]

In read_nm_table/read_nm_tab_readr_1 ~line 11 strsplit does not replace ",". This means space separated header row is needed for comma separated file. It would be nice if table titles could be removed only if present.

library(ncappc)
# fake data
colnames(Theoph) <- c("ID", "WT", "DOSE", "TIME", "DV")
TheophSim <- rbind(
  cbind(Theoph, NSUB = 1), 
  cbind(Theoph, NSUB = 2))
TheophSim$DV <- TheophSim$DV + rnorm(n = nrow(TheophSim))
# fake sim file comma separated
cat("Table 1\n", file = "theo_sim.tab")
suppressWarnings(write.table(TheophSim, file = "theo_sim.tab", 
  append = TRUE, sep = ",",
  row.names = FALSE, quote = FALSE))
# in read_nm_table/read_nm_tab_readr_1 ~line 11 
# strsplit does not replace ","
ncappc(
  obsFile = Theoph, 
  simFile = "theo_sim.tab",
  noPlot = TRUE, 
  printOut = FALSE, 
  psnOut = FALSE)