named return of resolve_names

schochastics · schochastics · commit 47fc1cf21183 · 2025-04-29T17:31:57.000+02:00
diff --git a/R/netzschleuder.R b/R/netzschleuder.R
@@ -40,16 +40,17 @@ resolve_name <- function(x) {
   x <- sub("//", "/", x)
 
   if (grepl("/", x)) {
-    x_split <- strsplit(x, "/", fixed = TRUE)[[1]]
-    if (length(x_split) > 2) {
+    res_names <- strsplit(x, "/", fixed = TRUE)[[1]]
+    if (length(res_names) > 2) {
       cli::cli_abort(
-        "{.arg name} has {length(x_split)} components instead of 2."
+        "{.arg name} has {length(res_names)} components instead of 2."
       )
     }
-    return(x_split)
   } else {
-    c(x, x)
+    res_names <- c(x, x)
   }
+  names(res_names) <- c("collection", "network")
+  res_names
 }
 
 download_file <- function(zip_url, token = NULL, file, size_limit) {

Original file line number	Diff line number	Diff line change
`@@ -40,16 +40,17 @@ resolve_name <- function(x) {`
`40`	`40`	`x <- sub("//", "/", x)`
`41`	`41`
`42`	`42`	`if (grepl("/", x)) {`
`43`		`- x_split <- strsplit(x, "/", fixed = TRUE)[[1]]`
`44`		`- if (length(x_split) > 2) {`
	`43`	`+ res_names <- strsplit(x, "/", fixed = TRUE)[[1]]`
	`44`	`+ if (length(res_names) > 2) {`
`45`	`45`	`cli::cli_abort(`
`46`		`- "{.arg name} has {length(x_split)} components instead of 2."`
	`46`	`+ "{.arg name} has {length(res_names)} components instead of 2."`
`47`	`47`	`)`
`48`	`48`	`}`
`49`		`- return(x_split)`
`50`	`49`	`} else {`
`51`		`- c(x, x)`
	`50`	`+ res_names <- c(x, x)`
`52`	`51`	`}`
	`52`	`+ names(res_names) <- c("collection", "network")`
	`53`	`+ res_names`
`53`	`54`	`}`
`54`	`55`
`55`	`56`	`download_file <- function(zip_url, token = NULL, file, size_limit) {`