add utils::

R/get_boldid.R

@@ -241,7 +241,7 @@ get_boldid <- function(sci, fuzzy = FALSE, dataTypes = 'basic',
             if (length(boldid) > 1 || NROW(bold_df) > 1) {
               # prompt
               message("\n\n")
-              message(paste0(capture.output(bold_df), collapse = "\n"))
+              message(paste0(utils::capture.output(bold_df), collapse = "\n"))
               message("\nMore than one TSN found for taxon '", sci[i], "'!\n
             Enter rownumber of taxon (other inputs will return 'NA'):\n") # prompt
               take <- scan(n = 1, quiet = TRUE, what = 'raw')

R/get_eolid.R

@@ -244,7 +244,7 @@ get_eolid <- function(sci_com, ask = TRUE, messages = TRUE,
         message("\n\n")
         message("\nMore than one eolid found for taxon '", sci_com[i], "'!\n
             Enter rownumber of taxon (other inputs will return 'NA'):\n")
-        message(paste0(capture.output(df), collapse = "\n"))
+        message(paste0(utils::capture.output(df), collapse = "\n"))
         take <- scan(n = 1, quiet = TRUE, what = "raw")
 
         if (length(take) == 0) {

R/get_gbifid.R

@@ -234,7 +234,7 @@ get_gbifid <- function(sci, ask = TRUE, messages = TRUE, rows = NA,
             message("\nMore than one GBIF ID found for taxon '", sci[i], "'!\n
             Enter rownumber of taxon (other inputs will return 'NA'):\n")
             rownames(df) <- 1:nrow(df)
-            message(paste0(capture.output(df), collapse = "\n"))
+            message(paste0(utils::capture.output(df), collapse = "\n"))
             take <- scan(n = 1, quiet = TRUE, what = 'raw')
 
             if (length(take) == 0) {

R/get_natservid.R

@@ -171,7 +171,7 @@ get_natservid <- function(sci_com, searchtype = "scientific", ask = TRUE,
           # prompt
           message("\n\n")
           rownames(nsdf) <- seq_len(NROW(nsdf))
-          message(paste0(capture.output(nsdf), collapse = "\n"))
+          message(paste0(utils::capture.output(nsdf), collapse = "\n"))
           message("\nMore than one NatureServe ID found for taxon '", sci_com[i], "'!\n
                   Enter rownumber of taxon (other inputs will return 'NA'):\n") # prompt
           take <- scan(n = 1, quiet = TRUE, what = 'raw')

R/get_nbnid.R

@@ -162,7 +162,7 @@ get_nbnid <- function(sci_com, ask = TRUE, messages = TRUE, rec_only = FALSE,
         message("\n\n")
         message("\nMore than one NBN ID found for taxon '", sci_com[i], "'!\n
             Enter rownumber of taxon (other inputs will return 'NA'):\n")
-        message(paste0(capture.output(df), collapse = "\n"))
+        message(paste0(utils::capture.output(df), collapse = "\n"))
         take <- scan(n = 1, quiet = TRUE, what = 'raw')
 
         if (length(take) == 0) {

R/get_pow.R

@@ -192,7 +192,7 @@ get_pow <- function(sci_com, accepted = FALSE, ask = TRUE, messages = TRUE,
           if (length(pow) > 1 || NROW(pow_df) > 1) {
             # prompt
             message("\n\n")
-            message(paste0(capture.output(pow_df), collapse = "\n"))
+            message(paste0(utils::capture.output(pow_df), collapse = "\n"))
             message("\nMore than one pow found for taxon '", sci_com[i], "'!\n
           Enter rownumber of taxon (other inputs will return 'NA'):\n") # prompt
             take <- scan(n = 1, quiet = TRUE, what = 'raw')

R/get_tolid.R

@@ -155,7 +155,7 @@ get_tolid <- function(sci, ask = TRUE, messages = TRUE, rows = NA,
               message("\nMore than one ToL ID found for taxon '", sci[i], "'!\n
                       Enter rownumber of taxon (other inputs will return 'NA'):\n")
               rownames(tol_df) <- 1:nrow(tol_df)
-              message(paste0(capture.output(tol_df), collapse = "\n"))
+              message(paste0(utils::capture.output(tol_df), collapse = "\n"))
               take <- scan(n = 1, quiet = TRUE, what = 'raw')
 
               if (length(take) == 0) {

R/get_tpsid.R

@@ -192,7 +192,7 @@ get_tpsid <- function(sci, ask = TRUE, messages = TRUE, key = NULL,
             message("\nMore than one tpsid found for taxon '", sci[i], "'!\n
           Enter rownumber of taxon (other inputs will return 'NA'):\n")
             rownames(df) <- 1:nrow(df)
-            message(paste0(capture.output(df), collapse = "\n"))
+            message(paste0(utils::capture.output(df), collapse = "\n"))
             take <- scan(n = 1, quiet = TRUE, what = 'raw')
 
             if (length(take) == 0) {

R/get_tsn.R

@@ -172,7 +172,7 @@ get_tsn <- function(sci_com, searchtype = "scientific", accepted = FALSE,
 
           # prompt
           message("\n\n")
-          message(paste0(capture.output(tsn_df), collapse = "\n"))
+          message(paste0(utils::capture.output(tsn_df), collapse = "\n"))
           message("\nMore than one TSN found for taxon '", sci_com[i], "'!\n
             Enter rownumber of taxon (other inputs will return 'NA'):\n")
           take <- scan(n = 1, quiet = TRUE, what = "raw")

R/get_uid.R

@@ -285,7 +285,7 @@ get_uid <- function(sci_com, ask = TRUE, messages = TRUE, rows = NA,
           message("\n\n")
           message("\nMore than one UID found for taxon '", sci_com[i], "'!\n
             Enter rownumber of taxon (other inputs will return 'NA'):\n")
-          message(paste0(capture.output(df), collapse = "\n"))
+          message(paste0(utils::capture.output(df), collapse = "\n"))
           take <- scan(n = 1, quiet = TRUE, what = 'raw')
 
           if (length(take) == 0) {

R/get_wiki.R

@@ -139,7 +139,7 @@ get_wiki <- function(sci_com, wiki_site = "species", wiki = "en", ask = TRUE,
 
           # prompt
           message("\n\n")
-          message(paste0(capture.output(df), collapse = "\n"))
+          message(paste0(utils::capture.output(df), collapse = "\n"))
           message("\nMore than one wiki ID found for taxon '", sci_com[i], "'!\n
                   Enter rownumber of taxon (other inputs will return 'NA'):\n")
           take <- scan(n = 1, quiet = TRUE, what = 'raw')

R/get_wormsid.R

@@ -208,7 +208,7 @@ get_wormsid <- function(sci_com, searchtype = "scientific", marine_only = TRUE,
 
           # prompt
           message("\n\n")
-          message(paste0(capture.output(wmdf), collapse = "\n"))
+          message(paste0(utils::capture.output(wmdf), collapse = "\n"))
           message("\nMore than one WORMS ID found for taxon '", sci_com[i], "'!\n
                   Enter rownumber of taxon (other inputs will return 'NA'):\n") # prompt
           take <- scan(n = 1, quiet = TRUE, what = 'raw')

R/limited_print.R

@@ -60,7 +60,7 @@ limited_print <- function(chars, prefix = "",
   } else if (type == "cat") {
     cat(output)
   } else if (type == "print") {
-    message(paste0(capture.output(output), collapse = "\n"))
+    message(paste0(utils::capture.output(output), collapse = "\n"))
   } else if (type != "silent") {
     stop("invalid type option")
   }