parse_spc() should account for uppercase arguments

[andreranza]

library(seasonal)
packageVersion("seasonal")
#> [1] '1.9.0.9002'

text <- '
  SERIES{
  TITLE = "Commercial and industrial machinery and equipment (except automotive and electronic) repair and main"
  START = 2014.01
  PERIOD = 12
  SAVE = (A1 B1)
  PRINT = BRIEF
  NAME = "8081130000 - HE"
  FILE = "seasonal/tests/nocran/spc/x11_m1r.dat"
}'

pp.cap <- seasonal:::parse_spc(text)

# the following call is found in import.spc. If the arguments are UPPERCASE it
# returns `NULL` but, I believe, it should return the filename instead
pp.cap[['series']][['file']] 
#> NULL

pp.cap <- seasonal:::parse_spc(tolower(text))
pp.cap[['series']][['file']] 
#> [1] "\"seasonal/tests/nocran/spc/x11_m1r.dat\""

^{Created on 2024-06-09 with reprex v2.1.0}