Merge pull request #32 from bikeactuary/regex_bugfix

bugfix: modify the regex to allow dash
mikeasilva · Mar 29, 2022 · 8f29d78 · 8f29d78
2 parents 526cddf + 021f677
commit 8f29d78
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/blsAPI.R b/R/blsAPI.R
@@ -70,7 +70,7 @@ blsAPI <- function(payload=NA, api_version=1, return_data_frame=FALSE){
     if (is.list(payload)){
       # Multiple Series or One or More Series, Specifying Years request
       payload <- toJSON(payload)
-      m <- regexpr('\\"seriesid\\":\\"[a-zA-Z0-9]*\\",', payload)
+      m <- regexpr('\\"seriesid\\":\\"[a-zA-Z0-9-]*\\",', payload)
       str <- regmatches(payload, m)
       if (length(str) > 0){
         # wrap single series in []