tests/testthat/test-108-metadataMethods-Functionality.R

In redcapAPI: Interface to 'REDCap'

context("Meta Data Methods Functionality")

load(test_path("testdata", "test_redcapAPI_MetaData.Rdata"))

test_that(
  "Import and Export Meta Data", 
  {
    MetaData <- test_redcapAPI_MetaData
    
    orig_instrument <- unique(MetaData$form_name)
    
    n_imported <- importMetaData(rcon = rcon, 
                                 data = MetaData)
    expect_equal(n_imported, as.character(nrow(MetaData)))
    
    expect_data_frame(rcon$metadata(), 
                      nrows = nrow(MetaData))
    
    expect_equal(rcon$instruments()$instrument_name, 
                 orig_instrument)
    
    # Just do a subset of the metadata
    NextMetaData <- MetaData[1:10, ]
    importMetaData(rcon, NextMetaData)

    expect_data_frame(rcon$metadata(), 
                      nrows = nrow(NextMetaData))
    
    expect_equal(rcon$instruments()$instrument_name, 
                 unique(NextMetaData$form_name))
  }
)


test_that(
  "Export Field Names testing", 
  {
    Fields <- exportFieldNames(rcon)
    expect_true(nrow(Fields) > 0)
    
    Fields <- exportFieldNames(rcon, "record_id")
    expect_true(nrow(Fields) == 1)
    
    Fields <- exportFieldNames(rcon, 
                               fields = rcon$metadata()$field_name[1:2])
    expect_true(nrow(Fields) == 2)
  }
)

# Clean up 
importMetaData(rcon, test_redcapAPI_MetaData[1, ])