Address R CMD check.

NEWS.md

@@ -1,3 +1,3 @@
-# tor 1.0.0
+# tor 0.0.0.9000 unreleased
 
 * Initial release.

R/format_path.R

@@ -6,8 +6,8 @@
 #' @param base,prefix,files,ext Character vectors (all of length-1 except
 #'   `files`, which can be of any length.
 #'
-#' @return A string of the same length as `files`. For example:
-#'   `base/prefix-file1.csv` and `base/prefix-file2.csv`.
+#' @return A string of the same length as `files`.
+#'
 #' @export
 #'
 #' @examples

R/imports.R

@@ -0,0 +1,2 @@
+#' @importFrom rlang %||% abort set_names
+NULL

R/list_any.R

@@ -33,7 +33,6 @@
 #'   "[.]Rdata$",
 #'   ignore.case = TRUE
 #' )
-#' @importFrom rlang %||% abort set_names
 list_any <- function(path = ".",
                      .f,
                      regexp = NULL,

README.Rmd

@@ -142,16 +142,13 @@ imap_chr(dfms, ~ format_path(.y, "csv"))
 
 # Same
 map_chr(dfms, ~ format_path(names(.), "csv", ".", "this-"))
-```
 
-This is how to use it in a pipeline:
+(dfs <- list_csv())
 
-```{r}
-list_csv() %>% 
-  walk2(
-    imap_chr(dfms, ~ format_path(.y, "csv", base = ".", prefix = "this-")), 
-    write.csv
-  )
+paths <- dfs %>% 
+  imap_chr(~ format_path(.y, "csv", base = ".", prefix = "this-"))
+
+walk2(dfs, paths, readr::write_csv)
 
 dir_ls(".", regexp = "this-")
 ```

README.md

@@ -28,12 +28,12 @@ devtools::install_github("maurolepore/tor")
 
 ``` r
 library(tidyverse)
-#> -- Attaching packages --------------------------------------------- tidyverse 1.2.1 --
+#> -- Attaching packages ------------------------------------------------------------ tidyverse 1.2.1 --
 #> v ggplot2 3.1.0     v purrr   0.2.5
 #> v tibble  1.4.2     v dplyr   0.7.8
 #> v tidyr   0.8.2     v stringr 1.3.1
 #> v readr   1.3.1     v forcats 0.3.0
-#> -- Conflicts ------------------------------------------------ tidyverse_conflicts() --
+#> -- Conflicts --------------------------------------------------------------- tidyverse_conflicts() --
 #> x dplyr::filter() masks stats::filter()
 #> x dplyr::lag()    masks stats::lag()
 library(fs)
@@ -321,16 +321,22 @@ imap_chr(dfms, ~ format_path(.y, "csv"))
 map_chr(dfms, ~ format_path(names(.), "csv", ".", "this-"))
 #>           csv1           csv2 
 #> "./this-x.csv" "./this-y.csv"
-```
 
-This is how to use it in a pipeline:
+(dfs <- list_csv())
+#> $csv1
+#>   x
+#> 1 1
+#> 2 2
+#> 
+#> $csv2
+#>   y
+#> 1 a
+#> 2 b
+
+paths <- dfs %>% 
+  imap_chr(~ format_path(.y, "csv", base = ".", prefix = "this-"))
 
-``` r
-list_csv() %>% 
-  walk2(
-    imap_chr(dfms, ~ format_path(.y, "csv", base = ".", prefix = "this-")), 
-    write.csv
-  )
+walk2(dfs, paths, readr::write_csv)
 
 dir_ls(".", regexp = "this-")
 #> this-csv1.csv this-csv2.csv