mirror of https://git.sr.ht/~hrbrmstr/freebase
Browse Source
* Standardize title format to: "Use base R versions of `tidyverse_package` `function_family` functions" * Remove default file path from description & standardize description format to: "Creates base R versions of `tidyverse_package` `function_family` functions" * Revise description of save_as parameter to: "File path and name. Defaults to "R/default_name.R" * Change package title to: "A 'usethis'-esque Package for Base R Versions of 'tidyverse' Code"master
Patrick Kennedy
5 years ago
37 changed files with 159 additions and 163 deletions
@ -1,17 +1,17 @@ |
|||
#' Use base-ified equivalents of "detect"-ors |
|||
#' Use base R versions of `purrr` `detect` functions |
|||
#' |
|||
#' * Creates `R/utils-detect.R` with base R pseudo-equivalents for `purrr` `detect` (et al). |
|||
#' * Creates base R versions of `purrr` `detect` (et al). |
|||
#' |
|||
#' These support formula functions (i.e. `~{}`). |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-detect.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-detect.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_detect <- function(save_as = "R/utils-detect.R", open = TRUE) { |
|||
|
|||
check_is_package("use_detect()") |
|||
|
|||
use_template("detect.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("detect.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,15 +1,15 @@ |
|||
#' Use infix-helpers |
|||
#' |
|||
#' * Creates `R/utils-infix-helpers.R` with base R `%XXX%` helpers |
|||
#' * Creates base R `%xyz%` helpers |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-infix-helpers.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-infix-helpers.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_infix_helpers <- function(save_as = "R/utils-infix-helpers.R", open = TRUE) { |
|||
|
|||
check_is_package("use_infix_helpers()") |
|||
|
|||
use_template("infix-helpers.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("infix-helpers.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,15 +1,15 @@ |
|||
#' Use "is_" functions |
|||
#' Use "is_" tester functions |
|||
#' |
|||
#' * Creates `R/utils-isers.R` filled with `is_...` testors |
|||
#' * Creates `is_...` tester functions |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-isers.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-isers.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_isers <- function(save_as = "R/utils-isers.R", open = TRUE) { |
|||
|
|||
check_is_package("use_isers()") |
|||
|
|||
use_template("is-ers.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("is-ers.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,18 +1,17 @@ |
|||
#' Use base-ified equivalents of keep/discard/compact |
|||
#' Use base R versions of `purrr` `keep` functions |
|||
#' |
|||
#' * Creates `R/utils-keepers.R` with base R pseudo-equivalents for `purrr` |
|||
#' `keep`/`discard`/`compact` |
|||
#' * Creates base R versions of `purrr` `keep` fuctions. |
|||
#' |
|||
#' These support formula functions (i.e. `~{}`). |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-keepers.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-keepers.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_keepers <- function(save_as = "R/utils-keepers.R", open = TRUE) { |
|||
|
|||
check_is_package("use_keepers()") |
|||
|
|||
use_template("keepers.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("keepers.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,17 +1,17 @@ |
|||
#' Use base-ified equivalents of 'map'-pers |
|||
#' Use base R versions of `purrr` `map` functions |
|||
#' |
|||
#' * Creates `R/utils-mappers.R` with base R pseudo-equivalents for `purrr` `map`-pers. |
|||
#' * Creates base R versions of `purrr` `map` functions. |
|||
#' |
|||
#' These support formula functions (i.e. `~{}`). |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-mappers.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-mappers.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_mappers <- function(save_as = "R/utils-mappers.R", open = TRUE) { |
|||
|
|||
check_is_package("use_mappers()") |
|||
|
|||
use_template("mappers.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("mappers.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,15 +1,15 @@ |
|||
#' Use base-ified equivalents of "safely"-ifiers |
|||
#' Use base R versions of `purrr` `safely` functions |
|||
#' |
|||
#' * Creates `R/utils-safely.R` with base R pseudo-equivalents for `purrr` `safely` (et al). |
|||
#' * Creates base R versions of `purrr` `safely` (et al). |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-safely.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-safely.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_safely <- function(save_as = "R/utils-safely.R", open = TRUE) { |
|||
|
|||
check_is_package("use_safely()") |
|||
|
|||
use_template("safely.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("safely.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,15 +1,15 @@ |
|||
#' Use base R versions of `tidyr` `gather`/`spread`/`unite` |
|||
#' Use base R versions of `tidyr` functions |
|||
#' |
|||
#' * Creates `R/utils-tidylite.R` containing `gatherlite()`, `spreadlite()` and `unitelite()` |
|||
#' * Creates base R versions of `tidyr` functions |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-tidylite.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-tidylite.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_tidylite <- function(save_as = "R/utils-tidylite.R", open = TRUE) { |
|||
|
|||
check_is_package("use_tidylite()") |
|||
|
|||
use_template("tidylite.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("tidylite.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,18 +1,17 @@ |
|||
#' Use base-ified equivalents of `walk`/`walk2` |
|||
#' Use base R versions of `purrr` `walk` functions |
|||
#' |
|||
#' * Creates `R/utils-walkers.R` with base R pseudo-equivalents for `purrr` |
|||
#' `walk`/`walk2` |
|||
#' * Creates base R versions of `purrr` `walk` functions |
|||
#' |
|||
#' These support formula functions (i.e. `~{}`). |
|||
#' |
|||
#' @md |
|||
#' @param save_as Where to save/what to name the file. Defaults to "`R/utils-walkers.R`" |
|||
#' @param save_as File path and name. Defaults to "`R/utils-walkers.R`" |
|||
#' @param open if `TRUE`, open the resultant file |
|||
#' @export |
|||
use_walkers <- function(save_as = "R/utils-walkers.R", open = TRUE) { |
|||
|
|||
check_is_package("use_walkers()") |
|||
|
|||
use_template("walkers.R", save_as = save_as , open = open, package = "freebase") |
|||
use_template("walkers.R", save_as = save_as, open = open, package = "freebase") |
|||
|
|||
} |
|||
} |
|||
|
|||
@ -1,4 +1,4 @@ |
|||
`%l0%` <- function(x, y) if (length(x) == 0) y else x |
|||
`%||%` <- function(x, y) if (is.null(x)) y else x |
|||
`%@%` <- function(x, name) attr(x, name, exact = TRUE) |
|||
`%nin%` <- function(x, table) match(x, table, nomatch = 0) == 0 |
|||
`%nin%` <- function(x, table) match(x, table, nomatch = 0) == 0 |
|||
|
|||
Loading…
Reference in new issue