handle null args case

Author: stevencarlislewalker

R/iidda.api/DESCRIPTION

@@ -1,6 +1,6 @@
 Package: iidda.api
 Title: IIDDA API
-Version: 0.3.0
+Version: 0.3.1
 Authors@R: 
     person("Steve", "Walker", , "swalk@mcmaster.ca", role = c("aut", "cre"))
 Description: R Bindings for the IIDDA API.

R/iidda.api/R/parse.R

@@ -1,4 +1,6 @@
-set_dict_names = function(x) setNames(x, vapply(x, getElement, character(1L), "name"))
+set_dict_names = function(x) {
+  setNames(x, vapply(x, getElement, character(1L), "name"))
+}
 get_dict = function() {
   suppressWarnings({iidda.api::ops_staging$data_dictionary() |> set_dict_names()})
 }

R/iidda.api/R/rapiclient.R

@@ -6,11 +6,10 @@
     arg_names <- arg_names[!arg_names %in% c("...", ".__body__")]
     args <- mget(arg_names, environment)
     expand_url_args = function(x) {
-      if (is.null(x)) return(x) ## silence warning about passing NULL to structure
-      structure(
-          do.call(c, lapply(x, function(z) as.list(z)))
-        , names = rep(names(x), sapply(x, length))
-      )
+      lst = do.call(c, lapply(x, function(z) as.list(z)))
+      if (is.null(lst)) return(lst) ## silence warning about passing NULL to structure
+      nmd_lst = structure(lst, names = rep(names(x), sapply(x, length)))
+      return(nmd_lst)
     }
     expand_url_args(args)
 }