tests/testthat/test_mds_fmt.R

context("Package Functions - mds_fmt.R")

test_that("mds_fmt executes", {
  #load data
  df <- mdsR::mds_dta

  ## test function
  expect_output(mds_fmt(mds_dta, .quietly=T))
})
kmcconeghy/MDS documentation built on May 5, 2019, 7:01 p.m.