This commit is contained in:
Sharla Gelfand 2021-05-11 11:10:44 -04:00
Родитель 9a45f0eccb
Коммит 2153e4ddef
4 изменённых файлов: 6 добавлений и 1 удалений

Просмотреть файл

@ -11,3 +11,4 @@ start-up.R
^app\.R$
^rsconnect$
^sandbox$
azure-pipelines.yml

Просмотреть файл

@ -59,6 +59,8 @@ importFrom(purrr,map_if)
importFrom(purrr,pmap_dbl)
importFrom(purrr,pmap_dfr)
importFrom(purrr,reduce)
importFrom(rlang,":=")
importFrom(rlang,.data)
importFrom(rlang,parse_expr)
importFrom(stats,median)
importFrom(tibble,as_tibble)

2
R/datamations-package.R Normal file
Просмотреть файл

@ -0,0 +1,2 @@
#' @importFrom rlang .data :=
NULL

Просмотреть файл

@ -66,7 +66,7 @@ test_that("prep_specs_summarize returns a list with two elements - one for the j
expect_length(specs, 2) # Returns a list with two elements
expect_meta_parse_value(specs[1], "jitter") # First element meta.parse is jitter
expect_meta_parse_value(specs[2], NULL) # Second element meta is empty
expect_meta_axes(specs, TRUE) # Axes are set to TRUE to be shown
expect_meta_axes(specs, FALSE) # Additional axes are NOT shown when there's no groups
expect_data_values(specs[[1]], palmerpenguins::penguins %>%
dplyr::mutate(x = 1, gemini_id = dplyr::row_number()) %>%
dplyr::select(gemini_id, y = bill_length_mm, x)) # One data value for each row in the input data frame, containing grouping variables - x value depending on the grouping - x = 1 if n_groups != 3