Remove or replace unnecessary paste()

gesistsa · Jul 10, 2024 · 44f17b5 · 44f17b5
1 parent be79483
commit 44f17b5
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 6 deletions.
diff --git a/R/export_methods.R b/R/export_methods.R
@@ -82,13 +82,14 @@ export_delim <- function(file, x, fwrite = lifecycle::deprecated(), sep = "\t",
         message("Columns:")
         message(paste0(utils::capture.output(dict), collapse = "\n"))
         if (sep == "") {
-            message(paste0(
+            message(
                 "\nRead in with:\n",
                 'import("', file, '",\n',
                 "       widths = c(", paste0(n, collapse = ","), "),\n",
                 '       col.names = c("', paste0(names(n), collapse = '","'), '"),\n',
-                '       colClasses = c("', paste0(col_classes, collapse = '","'), '"))\n'
-            ), domain = NA)
+                '       colClasses = c("', paste0(col_classes, collapse = '","'), '"))\n',
+                domain = NA
+            )
         }
     }
     .write_as_utf8(paste0("#", utils::capture.output(utils::write.csv(dict, row.names = FALSE, quote = FALSE))), file = file, sep = "\n")

diff --git a/R/import_methods.R b/R/import_methods.R
@@ -349,7 +349,7 @@ extract_html_row <- function(x, empty_value) {
     # find all tables
     tables <- xml2::xml_find_all(xml2::read_html(unclass(file)), ".//table")
     if (which > length(tables)) {
-        stop(paste0("Requested table exceeds number of tables found in file (", length(tables), ")!"))
+        stop("Requested table exceeds number of tables found in file (", length(tables), ")!")
     }
     x <- xml2::as_list(tables[[which]])
     if ("tbody" %in% names(x)) {

diff --git a/R/onLoad.R b/R/onLoad.R
@@ -3,7 +3,7 @@
         w <- uninstalled_formats()
         if (length(w)) {
             msg <- "The following rio suggested packages are not installed: %s\nUse 'install_formats()' to install them"
-            packageStartupMessage(sprintf(msg, paste0(sQuote(w), collapse = ", ")))
+            packageStartupMessage(sprintf(msg, toString(sQuote(w))))
         }
     }
 }
diff --git a/R/remote_to_local.R b/R/remote_to_local.R
@@ -38,7 +38,7 @@ remote_to_local <- function(file, format) {
         if (!length(f)) {
             f <- regmatches(h, regexpr("(?<=filename=)(.*)", h, perl = TRUE))
         }
-        f <- paste0(dirname(temp_file), "/", f)
+        f <- file.path(dirname(temp_file), f)
         file.copy(from = temp_file, to = f)
         unlink(temp_file)
         return(f)