API draft

Author: krlmlr

NAMESPACE

@@ -1,12 +1,14 @@
 # Generated by roxygen2: do not edit by hand
 
+export(create_style_guide)
 export(get_transformers)
 export(get_transformers_flat)
 export(get_transformers_nested)
 export(style_dir)
 export(style_file)
 export(style_pkg)
 export(style_text)
+export(tidyverse_style)
 import(dplyr)
 import(tibble)
 import(tidyr)

R/get_transformers.R

@@ -1,3 +1,10 @@
+#' The tidyverse style
+#' @param ... ...
+#' @export
+tidyverse_style <- function(...) {
+  get_transformers_nested(...)
+}
+
 #' Get the transformer functions for styling
 #'
 #' @param flat Whether the transformer functions for flat or nested styling

R/ws.R

@@ -16,11 +16,11 @@ NULL
 #' @export
 #' @family stylers
 style_pkg <- function(pkg = ".",
-  flat = FALSE,
-  ...,
-  transformers = get_transformers(flat = flat, ...)) {
+                      ...,
+                      style = tidyverse_style,
+                      transformers = style(...)) {
   pkg_root <- rprojroot::find_package_root_file(path = pkg)
-  withr::with_dir(pkg_root, prettify_local(transformers, flat = flat))
+  withr::with_dir(pkg_root, prettify_local(transformers, flat = FALSE))
 }
 
 prettify_local <- function(transformers, flat) {