inst/doc/in-packages.R

In dplyr: A Grammar of Data Manipulation

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup, message = FALSE---------------------------------------------------
library(dplyr)

## -----------------------------------------------------------------------------
my_summary_function <- function(data) {
  data %>% 
    select(grp, x, y) %>% 
    filter(x > 0) %>% 
    group_by(grp) %>% 
    summarise(y = mean(y), n = n())
}

## -----------------------------------------------------------------------------
#' @importFrom rlang .data
my_summary_function <- function(data) {
  data %>% 
    select("grp", "x", "y") %>% 
    filter(.data$x > 0) %>% 
    group_by(.data$grp) %>% 
    summarise(y = mean(.data$y), n = n())
}

## ----eval=FALSE---------------------------------------------------------------
#  if (utils::packageVersion("dplyr") > "0.5.0") {
#    # code for new version
#  } else {
#    # code for old version
#  }

## ----eval=FALSE---------------------------------------------------------------
#  if (utils::packageVersion("dplyr") > "1.0.10") {
#    dplyr::reframe(df, x = unique(x))
#  } else {
#    dplyr::summarise(df, x = unique(x))
#  }

## ----eval=FALSE---------------------------------------------------------------
#  if (utils::packageVersion("dplyr") > "1.0.10") {
#    utils::getFromNamespace("reframe", "dplyr")(df, x = unique(x))
#  } else {
#    dplyr::summarise(df, x = unique(x))
#  }

## ----eval=FALSE---------------------------------------------------------------
#  #' @rawNamespace
#  #' if (utils::packageVersion("dplyr") > "0.5.0") {
#  #'   importFrom("dbplyr", "build_sql")
#  #' } else {
#  #'   importFrom("dplyr", "build_sql")
#  #' }

## ----eval=FALSE---------------------------------------------------------------
#  starwars %>% mutate_each(funs(as.character))
#  starwars %>% mutate_all(funs(as.character))
#  starwars %>% mutate(across(everything(), as.character))

## ----eval = FALSE-------------------------------------------------------------
#  starwars %>% mutate_each(funs(as.character), height, mass)
#  starwars %>% mutate_at(vars(height, mass), as.character)
#  starwars %>% mutate(across(c(height, mass), as.character))

## ----eval=FALSE---------------------------------------------------------------
#  starwars %>% mutate_if(is.factor, as.character)
#  starwars %>% mutate(across(where(is.factor), as.character))