Merge pull request #4 from GarrettMooney/update_config

Update config XML

DESCRIPTION

@@ -7,7 +7,8 @@ Authors@R: c(
     person("Bob", "Rudis", email = "bob@rud.is", role = c("aut", "cre"), 
            comment = c(ORCID = "0000-0001-5670-2640")),
     person("Bryce", "Mecum", email = "petridish@gmail.com", role = "ctb",
-           comment = c(ORCID = "0000-0002-0381-3766"))
+           comment = c(ORCID = "0000-0002-0381-3766")),
+    person("Garrett", "Mooney", email = "gmooney@mail.bradley.edu", role = "ctb")
   )
 Author: Bob Rudis (bob@rud.is)
 Maintainer: Bob Rudis <bob@rud.is>

R/config.r

@@ -14,6 +14,7 @@ spd_config <- function() {
   config <- httr::content(res, as="text")
   config <- xml2::read_xml(config)
   config <- xml2::as_list(config)
+  config <- config$settings
   config <- purrr::map(config, function(.x) { c(.x, attributes(.x)) })
   config$`server-config`$ignoreids <- strsplit(config$`server-config`$ignoreids, ",")[[1]]