tests/testthat/test-StcsvToSchema.R

path <- system.file('extdata', package = 'fastReadfwf')
schema <- StcsvToSchema(file.path(path, 'SchemaSNHS_microdataWeb.csv'), header = TRUE)

test_that("class schema from csv", {
  expect_is(schema, "StfwfSchema")
})
david-salgado/fastReadfwf documentation built on Dec. 25, 2021, 12:43 p.m.