Coerce dataframes to tibbles (#9)

* list_any() now outputs tibbles.

DESCRIPTION

@@ -16,7 +16,8 @@ URL: https://github.com/maurolepore/tor
 BugReports: https://github.com/maurolepore/tor/issues
 Imports: 
     fs,
-    rlang
+    rlang,
+    tibble
 Suggests: 
     covr,
     spelling,

NEWS.md

@@ -2,6 +2,9 @@
 
 ## Minor
 
+* Each dataframe output is now converted to tibble. 
+    * Users no longer need to call `tibble::as_tibble()`.
+
 * New `load_*()` variants load each file in a directory into an environment.
 
 ## Patch

R/list_any.R

@@ -8,23 +8,23 @@
 #'
 #' @examples
 #' tor_example()
-#' 
+#'
 #' path <- tor_example("csv")
 #' dir(path)
-#' 
+#'
 #' list_any(path, read.csv)
-#' 
+#'
 #' list_any(path, ~ read.csv(.x, stringsAsFactors = FALSE))
-#' 
+#'
 #' (path_mixed <- tor_example("mixed"))
 #' dir(path_mixed)
-#' 
+#'
 #' list_any(
 #'   path_mixed, ~ get(load(.x)),
 #'   regexp = "[.]csv$",
 #'   invert = TRUE
 #' )
-#' 
+#'
 #' list_any(
 #'   path_mixed, ~ get(load(.x)),
 #'   "[.]Rdata$",
@@ -52,5 +52,12 @@ list_any <- function(path = ".",
   }
 
   file_names <- fs::path_ext_remove(fs::path_file(files))
-  set_names(lapply(files, rlang::as_function(.f), ...), file_names)
+  result <- set_names(lapply(files, rlang::as_function(.f), ...), file_names)
+  dataframe_to_tibble(result)
+}
+
+dataframe_to_tibble <- function(.x) {
+  sel <- vapply(.x, is.data.frame, logical(1))
+  .x[sel] <- lapply(.x[sel], tibble::as_tibble)
+  .x
 }

README.Rmd

@@ -39,7 +39,7 @@ library(fs)
 library(tor)
 ```
 
-All functions list whatever they read, and default to reading from the working directory.
+All functions list whatever they read, and default to reading from the working directory. Dataframes are coerced to tibbles.
 
 ### `list_*()`: Import multiple files from a directory into a list
 

README.md

@@ -46,7 +46,7 @@ library(tor)
 ```
 
 All functions list whatever they read, and default to reading from the
-working directory.
+working directory. Dataframes are coerced to tibbles.
 
 ### `list_*()`: Import multiple files from a directory into a list
 
@@ -62,13 +62,17 @@ dir()
 
 list_csv()
 #> $csv1
-#>   x
-#> 1 1
-#> 2 2
+#> # A tibble: 2 x 1
+#>       x
+#>   <int>
+#> 1     1
+#> 2     2
 #> 
 #> $csv2
-#>   y
-#> 1 a
+#> # A tibble: 2 x 1
+#>   y    
+#>   <chr>
+#> 1 a    
 #> 2 b
 ```
 
@@ -154,13 +158,17 @@ dir(path_csv)
 
 list_any(path_csv, read.csv)
 #> $csv1
-#>   x
-#> 1 1
-#> 2 2
+#> # A tibble: 2 x 1
+#>       x
+#>   <int>
+#> 1     1
+#> 2     2
 #> 
 #> $csv2
-#>   y
-#> 1 a
+#> # A tibble: 2 x 1
+#>   y    
+#>   <fct>
+#> 1 a    
 #> 2 b
 ```
 
@@ -319,12 +327,16 @@ load_csv()
 
 # Each file is now available as a dataframe in the global environment
 csv1
-#>   x
-#> 1 1
-#> 2 2
+#> # A tibble: 2 x 1
+#>       x
+#>   <int>
+#> 1     1
+#> 2     2
 csv2
-#>   y
-#> 1 a
+#> # A tibble: 2 x 1
+#>   y    
+#>   <chr>
+#> 1 a    
 #> 2 b
 ```
 
@@ -385,13 +397,17 @@ map_chr(dfms, ~ format_path(names(.), "csv", ".", "this-"))
 
 (dfs <- list_csv())
 #> $csv1
-#>   x
-#> 1 1
-#> 2 2
+#> # A tibble: 2 x 1
+#>       x
+#>   <int>
+#> 1     1
+#> 2     2
 #> 
 #> $csv2
-#>   y
-#> 1 a
+#> # A tibble: 2 x 1
+#>   y    
+#>   <chr>
+#> 1 a    
 #> 2 b
 
 paths <- dfs %>%