parse_spc() accounts for uppercase arguments and spec

R/parse_spc.R

@@ -42,7 +42,7 @@ parse_spc <- function(txt){
   stopifnot(length(z0) == length(nam))
 
 
-  names(z0) <- nam
+  names(z0) <- tolower(nam)
 
   # # separate individual specs
   # z0 <- list()
@@ -140,7 +140,7 @@ parse_singlespc <- function(txt){
   nam <- sapply(snamarg, function(e) e[[1]])
 
   # nam <- spltxt[-length(spltxt)]
-  nam <- gsub("( +$)|(^ +)", "", nam)
+  nam <- tolower(gsub("( +$)|(^ +)", "", nam))
   # nam <- gsub(".* ([A-Za-z0-9]+$)", "\\1", nam)
 
 

tests/testthat/_snaps/parse_spc.md

@@ -0,0 +1,15 @@
+# parse_spc accounts for uppercase arguments and spec
+
+    Code
+      parse_spc(text)
+    Output
+      series{
+        title = "xyz"
+        start = 2014.01
+        period = 12
+        save = (A1 B1)
+        print = BRIEF
+        name = "abc"
+        file = "path/to/file.dat"
+      } 
+

tests/testthat/test-parse_spc.R

@@ -0,0 +1,19 @@
+test_that("parse_spc accounts for uppercase arguments and spec", {
+
+  text <- '
+    SERIES{
+    TITLE = "xyz"
+    START = 2014.01
+    PERIOD = 12
+    SAVE = (A1 B1)
+    PRINT = BRIEF
+    NAME = "abc"
+    FILE = "path/to/file.dat"
+  }'
+
+  expect_snapshot(parse_spc(text))
+
+  pp.cap <- parse_spc(text)
+  expect_false(is.null(pp.cap[['series']][['file']]))
+
+})