perf: set use.names to false in data.frame call

m-muecke · Aug 3, 2024 · a474023 · a474023
1 parent bd4a805
commit a474023
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/bbk.R b/R/bbk.R
@@ -189,7 +189,7 @@ parse_bbk_metadata <- function(x, lang) {
     nms <- node |>
       xml2::xml_find_all(sprintf(".//common:Name[@xml:lang='%s']", lang)) |>
       xml2::xml_text()
-    data.frame(id = id, name = nms)
+    data.frame(id = id, name = nms, check.names = FALSE)
   })
   do.call(rbind, res)
 }

diff --git a/R/ecb.R b/R/ecb.R
@@ -172,7 +172,7 @@ parse_ecb_metadata <- function(x, lang = "en") {
     nms <- node |>
       xml2::xml_find_all(sprintf(".//com:Name[@xml:lang='%s']", lang)) |>
       xml2::xml_text()
-    data.frame(agency = agency, id = id, name = nms)
+    data.frame(agency = agency, id = id, name = nms, check.names = FALSE)
   })
   do.call(rbind, res)
 }