| name | r-development |
| description | Modern R development practices emphasizing tidyverse patterns (dplyr 1.1 and later, native pipe, join_by, .by grouping), rlang metaprogramming, performance optimization, and package development. Use when you needs to write R code, create R packages, optimize R performance, or provide R programming guidance. |
R Development
This skill provides comprehensive guidance for modern R development, emphasizing current best practices with tidyverse, performance optimization, and professional package development.
Core Principles
- Use modern tidyverse patterns - Prioritize dplyr 1.1+ features, native pipe, and current APIs
- Profile before optimizing - Use profvis and bench to identify real bottlenecks
- Write readable code first - Optimize only when necessary and after profiling
- Follow tidyverse style guide - Consistent naming, spacing, and structure
Modern Tidyverse Essentials
Native Pipe (|> not %>%)
Always use native pipe |> instead of magrittr %>% (R 4.1+):
data |>
filter(year >= 2020) |>
summarise(mean_value = mean(value))
data %>% filter(year >= 2020)
Join Syntax (dplyr 1.1+)
Use join_by() for all joins:
transactions |>
inner_join(companies, by = join_by(company == id))
transactions |>
inner_join(companies, join_by(company == id, year >= since))
transactions |>
inner_join(companies, join_by(company == id, closest(year >= since)))
Control match behavior:
inner_join(x, y, by = join_by(id), multiple = "error")
inner_join(x, y, by = join_by(id), unmatched = "error")
Per-Operation Grouping with .by
Use .by instead of group_by() |> ... |> ungroup():
data |>
summarise(mean_value = mean(value), .by = category)
data |>
summarise(total = sum(revenue), .by = c(company, year))
Column Operations
Use modern column selection and transformation functions:
data |>
summarise(
n_x_cols = ncol(pick(starts_with("x"))),
n_y_cols = ncol(pick(starts_with("y")))
)
data |>
summarise(across(where(is.numeric), mean, .names = "mean_{.col}"), .by = group)
data |>
reframe(quantiles = quantile(x, c(0.25, 0.5, 0.75)), .by = group)
rlang Metaprogramming
For comprehensive rlang patterns, see references/rlang-patterns.md.
Quick Reference
{{}} - Forward function arguments to data-masking functions
!! - Inject single expressions or values
!!! - Inject multiple arguments from a list
.data[[]] - Access columns by name (character vectors)
pick() - Select columns inside data-masking functions
Example function with embracing:
my_summary <- function(data, group_var, summary_var) {
data |>
summarise(mean_val = mean({{ summary_var }}), .by = {{ group_var }})
}
Performance Optimization
For detailed performance guidance, see references/performance.md.
Key Strategies
- Profile first: Use
profvis::profvis() and bench::mark()
- Vectorize operations: Avoid loops when vectorized alternatives exist
- Use dtplyr: For large data operations (lazy evaluation with data.table backend)
- Parallel processing: Use
furrr::future_map() for parallelizable work
- Memory efficiency: Pre-allocate, use appropriate data types
Quick example:
profvis::profvis({
result <- data |>
complex_operation() |>
another_operation()
})
bench::mark(
approach_1 = method1(data),
approach_2 = method2(data),
check = FALSE
)
Package Development
For complete package development guidance, see references/package-development.md.
Quick Guidelines
API Design:
- Use
.by parameter for per-operation grouping
- Use
{{}} for column arguments
- Return tibbles consistently
- Validate user-facing function inputs thoroughly
Dependencies:
- Add dependencies for significant functionality gains
- Core tidyverse packages usually worth including: dplyr, purrr, stringr, tidyr
- Minimize dependencies for widely-used packages
Testing:
- Unit tests for individual functions
- Integration tests for workflows
- Test edge cases and error conditions
Documentation:
- Document all exported functions
- Provide usage examples
- Explain non-obvious parameter interactions
Common Migration Patterns
Base R → Tidyverse
subset(data, condition) → filter(data, condition)
data[order(data$x), ] → arrange(data, x)
aggregate(x ~ y, data, mean) → summarise(data, mean(x), .by = y)
sapply(x, f) → map(x, f)
lapply(x, f) → map(x, f)
grepl("pattern", text) → str_detect(text, "pattern")
gsub("old", "new", text) → str_replace_all(text, "old", "new")
Old → New Tidyverse
%>% → |>
group_by() |> ... |> ungroup() → summarise(..., .by = x)
by = c("a" = "b") → by = join_by(a == b)
gather()/spread() → pivot_longer()/pivot_wider()
Additional Resources