tests/testthat/test-group-by.R

In dsTidyverseClient: 'DataSHIELD' 'Tidyverse' Clientside Package

require(DSLite)
require(DSI)
require(dplyr)
require(dsTidyverse)
require(dsBaseClient)

mtcars_group <- mtcars %>%
  group_by(cyl) %>%
  mutate(drop_test = factor("a", levels = c("a", "b")))

login_data <- .prepare_dslite(
  assign_method = "groupByDS",
  tables = list(
    mtcars = mtcars,
    mtcars_group = mtcars_group
  )
)

conns <- datashield.login(logins = login_data)
datashield.assign.table(conns, "mtcars", "mtcars")
datashield.assign.table(conns, "mtcars_group", "mtcars_group")

test_that("ds.group_by correctly groups a data frame", {
  skip_if_not_installed("dsBaseClient")
  ds.group_by(
    df.name = "mtcars",
    tidy_expr = list(mpg, cyl),
    newobj = "grouped",
    datasources = conns
  )

  expect_equal(
    ds.class("grouped", datasources = conns)[[1]],
    c("grouped_df", "tbl_df", "tbl", "data.frame")
  )
})

login_data <- .prepare_dslite(
  assign_method = "ungroupDS",
  tables = list(mtcars_group = mtcars_group)
)

conns <- datashield.login(logins = login_data)
datashield.assign.table(conns, "mtcars_group", "mtcars_group")

test_that("ds.ungroup correctly ungroups a data frame", {
  skip_if_not_installed("dsBaseClient")
  ds.ungroup("mtcars_group", "ungrouped_df", datasources = conns)

  expect_equal(
    ds.class("ungrouped_df", datasources = conns)[[1]],
    c("tbl_df", "tbl", "data.frame")
  )
})