better use of input url type in ctrOpenSearchPagesInBrowser

rfhb · Aug 6, 2023 · 160a4b4 · 160a4b4
1 parent 33db78d
commit 160a4b4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -683,7 +683,7 @@ ctrOpenSearchPagesInBrowser <- function(
                          call. = FALSE, immediate. = TRUE)
     register  <- url[nr, "query-register", drop = TRUE]
     url <- url[nr, "query-term", drop = TRUE]
-    urlOrig <- url
+    if (!is.atomic(urlOrig)) urlOrig <- url
   }
 
   # - open register search pages