#' Prettify R source code
#'
#' Performs various substitutions in all `.R` files in a package...
#' Carefully examine the results after running this function!
#' @examples style_pkg(
#'   style =
#'     tidyverse_style, strict = TRUE
#' )
#' @name k
a <- 2

#' The tidyverse style
#'
#' Style code according to the tidyverse style guide.
#' @family style_guides
#' @examples
#' style_text("call( 1)", style = tidyverse_style, scope = "spaces")
#' style_text("call( 1)", transformers = tidyverse_style(strict = TRUE))
#' style_text(
#'   c("ab <- 3", "a  <-3"),
#'   strict = FALSE
#' ) # keeps alignment of "<-"
#' style_text(c("ab <- 3", "a  <-3"), strict = TRUE) # drops alignment of "<-"
#' @importFrom purrr partial
#' @export
a <- call