tests/testthat/test-renameDS.R

In dsTidyverse: 'DataSHIELD' 'Tidyverse' Serverside Package

require(DSI)
require(DSLite)
require(dplyr)
require(dsBase)
require(dsBaseClient)

data("mtcars")
mtcars_group <- mtcars %>% group_by(cyl)
login_data <- .prepare_dslite("renameDS", NULL, list(mtcars = mtcars))
conns <- datashield.login(logins = login_data)
datashield.assign.table(conns, "mtcars", "mtcars")

good_rename_arg <- "test_1 = mpg, test_2 = drat"

test_that("renameDS passes for rename where data and column exist", {
  good_rename_cally <- .make_tidyverse_call("mtcars", "rename", good_rename_arg)
  expected <- c("test_1", "cyl", "disp", "hp", "test_2", "wt", "qsec", "vs", "am", "gear", "carb")
  expect_equal(
    colnames(eval(good_rename_cally)),
    expected
  )
})

test_that("renameDS fails when data doesn't exist", {
  no_data <- .make_tidyverse_call("doesntexist", "rename", good_rename_arg)
  expect_error(
    eval(no_data),
    "`renameDS`\\s+returned\\s+the\\s+following\\s+error:|object\\s+'doesntexist'\\s+not\\s+found"
  )
})

test_that("renameDS fails with bad argument", {
  bad_rename_arg <- "test_1 = mpg, test_2 = drat, filter/asd"
  bad_call <- .make_tidyverse_call("mtcars", "rename", bad_rename_arg)
  expect_error(
    eval(bad_call),
    "Can't rename columns that don't exist\\."
  )
})

test_that("renameDS passes when called directly", {
  skip_if_not_installed("dsBaseClient")
  cally <- call(
    "renameDS", "new_name_1$SPACE$$EQU$$SPACE$mpg$COMMA$$SPACE$new_name_2$SPACE$$EQU$$SPACE$drat",
    "mtcars"
  )

  datashield.assign(conns, "test", cally)

  expect_equal(
    ds.class("test", datasources = conns)[[1]],
    "data.frame"
  )

  expect_equal(
    ds.colnames("test", datasources = conns)[[1]],
    c("new_name_1", "cyl", "disp", "hp", "new_name_2", "wt", "qsec", "vs", "am", "gear", "carb")
  )
})