Я хотел бы заменить это ( want ) функцией: library(tidyverse) library(rlang) set.seed(1) create_a <- function() { list(x = 1:10, y = data.frame(aa = round(rnorm(10, 2000, 10), 0), bb = sample(letters[3:8],...

Все примеры, которые я вижу для curly curly, относятся к контексту написания функций. Я просто хочу зациклить свои группирующие переменные и получить частоты, поэтому я пытаюсь заставить что-то вроде этого работать: my_var <- "model" mpg %>%...

Я новичок в {testthat} и разрабатываю тесты для функции, которая изменяет строки и, как ожидается, выдает определенный результат для определенных входных шаблонов. В качестве примера (репрекс ниже), add_excitement добавляет восклицательный знак к...