Fix no-visible-binding-for-global-variable-note-in-r-cmd-check
Change-Id: Icb4ecdb2a3d02bbae8bef7c21d03b88a7107a4d2
diff --git a/R/textMetadata.R b/R/textMetadata.R
index b23bc49..2e5372f 100644
--- a/R/textMetadata.R
+++ b/R/textMetadata.R
@@ -17,7 +17,7 @@
#' If there are metadata columns you cannot make sense of, please ignore them. The function simply returns all the metadata it gets from the server.
#'
#' @importFrom urltools url_encode
-#' @importFrom dplyr bind_rows relocate mutate
+#' @importFrom dplyr across bind_rows relocate mutate where
#' @importFrom tibble as_tibble
#' @importFrom tidyr pivot_wider
#'
@@ -29,6 +29,8 @@
#' @export
setMethod("textMetadata", "KorAPConnection",
function(kco, textSigle, verbose = kco@verbose) {
+ # https://stackoverflow.com/questions/8096313/no-visible-binding-for-global-variable-note-in-r-cmd-check
+ key <- 0
if (length(textSigle) > 1)
do.call(bind_rows, Map(function(atomicSigle)
textMetadata(kco, atomicSigle), textSigle))