tests/testthat/test-104-dagMethods-Functionality.R

In redcapAPI: Interface to 'REDCap'

context("Data Access Group Methods Functionality")

test_that(
  "Import, Export, Delete Data Access Groups", 
  {
    NewDag <- data.frame(data_access_group_name = c("Testing DAG 1", "Testing DAG 2"),
                         unique_group_name = rep(NA_character_, 2))
    
    expect_message(importDags(rcon, 
                              data = NewDag), 
                   "DAGs imported: 2")
    
    StoredDag <- exportDags(rcon)
    
    expect_data_frame(StoredDag, 
                      ncol = 3, 
                      nrows = 2)
    
    expect_equal(StoredDag, 
                 rcon$dags())
    
    ChangeDag <- StoredDag[1, ]
    ChangeDag$data_access_group_name <- "A different name"
    
    expect_message(importDags(rcon, 
                              data = ChangeDag), 
                   "DAGs imported: 1")
    
    expect_true("A different name" %in% rcon$dags()$data_access_group_name)
    expect_true("a_different_name" %in% rcon$dags()$unique_group_name)
    
    expect_message(deleteDags(rcon, 
                              rcon$dags()$unique_group_name), 
                   "DAGs deleted")
  }
)