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

In redcapAPI: Interface to 'REDCap'

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, ])