tests/testthat/test-data-table-elements.R
In CVPIA-OSC/EMLaide: Provides functions for building EML metadata for EDI's data repository
# Tests for create_attribute function
test_that('Correct error and warning messages are produced.', {
expect_error(create_attribute(attribute_definition = "Latitude", attribute_label = "Lat",
measurement_scale = "ordinal",
domain = "text", definition = "Latitude", text_pattern = "Latitudes"),
'Please provide attribute name.')
expect_error(create_attribute(attribute_name = "LatitudeDD",
attribute_label = "Lat", measurement_scale = "ordinal",
domain = "text", definition = "Latitude", text_pattern = "Latitudes"),
'Please provide a brief definition of the attribute you are including.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Lat",
domain = "text", definition = "Latitude", text_pattern = "Latitudes"),
'Please provide a measurement scale.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Lat", measurement_scale = "ordinal",
domain = "text", text_pattern = "Latitudes"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "site_id", attribute_label = "sites",
attribute_definition = "Site id as used in sites table",
measurement_scale = "nominal", domain = "text",
text_pattern = "ids"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "site_id", attribute_label = "sites",
attribute_definition = "Site id as used in sites table",
measurement_scale = "nominal",
definition = "Sites", text_pattern = "ids"),
'Please provide a domain of "text" or "enumerated" and supply the remaining applicable inputs.')
expect_error(create_attribute(attribute_name = "Recap", attribute_definition = "Has the Turtle been captured and tagged previously",
attribute_label = "Turtles",
measurement_scale = "nominal", domain = "enumerated"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Latitude",
measurement_scale = "ordinal", definition = "Latitude",
text_pattern = "NA"),
'Please provide a domain of "text" or "enumerated" and supply the remaining applicable inputs.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Latitude",
measurement_scale = "ordinal", domain = "text", text_pattern = "NA"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "hwa", attribute_definition = "Hemlock woolly adelgid density per meter of branch",
measurement_scale = "ordinal",
attribute_label = "hemlock wolly adelgid", domain = "enumerated"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", unit_precision = "1",
number_type = "whole", minimum = "0", maximum = "10"),
'Please provide what units your measurement scale uses.')
expect_warning(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
number_type = "whole", minimum = "0", maximum = "10"),
'Please provide what level of precision your measurements use.')
expect_error(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
unit_precision = "1", minimum = "0", maximum = "10"),
'Please provide what type of numbers are being used.')
expect_error(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
units = "number",
unit_precision = "1", minimum = "0", maximum = "10"),
"Please provide a type of 'interval' or 'ratio'.")
expect_warning(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
unit_precision = "1", number_type = "whole", maximum = "10"),
'Please provide a minimum theoretical value if applicable.')
expect_warning(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
unit_precision = "1", number_type = "whole", minimum = "0"),
'Please provide a maximum theoretical value if applicable.')
expect_error(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", unit_precision = "0.01",
number_type = "real", minimum = "0", maximum = "14"),
'Please provide what units your measurement scale uses.')
expect_warning(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
number_type = "real", minimum = "0", maximum = "14"),
'Please provide what level of precision your measurements use.')
expect_error(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", minimum = "0", maximum = "14"),
'Please provide what type of numbers are being used.')
expect_error(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", units = "dimensionless",
unit_precision = "0.01", minimum = "0", maximum = "14"),
"Please provide a type of 'interval' or 'ratio'.")
expect_warning(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", number_type = "real", maximum = "14"),
'Please provide a minimum theoretical value if applicable.')
expect_warning(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", number_type = "real", minimum = "0"),
'Please provide a maximum theoretical value if applicable')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime",
date_time_precision = "1", minimum = "1993", maximum = "2003"),
'Please provide the correct format of which your date time attribute is in.')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime", date_time_format = "YYYY",
minimum = "1993", maximum = "2003"),
'Please provide the level of precision your date time attribute has.')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime", date_time_format = "YYYY",
date_time_precision = "1", maximum = "2003"),
'Please provide the earliest date time used.')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime", date_time_format = "YYYY",
date_time_precision = "1", minimum = "1993"),
'Please provide the latest date time used.')
})
test_that('The attribute function adds attribute elements.', {
expect_equal(create_attribute(attribute_name = "site_id", attribute_definition = "Site id as used in sites table",
attribute_label = "NA",
measurement_scale = "nominal", domain = "text",
definition = "Site id as used in sites table.", text_pattern = "NA"),
list(attributeName = "site_id", attributeDefinition = "Site id as used in sites table",
attributeLabel = "NA", measurementScale = list(
nominal = list(nonNumericDomain = list(textDomain = list(
definition = "Site id as used in sites table.", pattern = "NA"))))))
expect_equal(create_attribute(attribute_name = "Recap", attribute_definition = "Has the Turtle been captured and tagged previously",
attribute_label = "NS",
measurement_scale = "nominal", domain = "enumerated",
definition = "code_definition"),
list(attributeName = "Recap", attributeDefinition = "Has the Turtle been captured and tagged previously",
attributeLabel = "NS", measurementScale = list(
nominal = list(nonNumericDomain = list(enumeratedDomain = "code_definition")))))
expect_equal(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "NA", measurement_scale = "ordinal",
domain = "text", definition = "Latitude", text_pattern = "NA"),
list(attributeName = "LatitudeDD", attributeDefinition = "Latitude",
attributeLabel = "NA", measurementScale = list(
ordinal = list(nonNumericDomain = list(textDomain = list(
definition = "Latitude", pattern = "NA"))))))
expect_equal(create_attribute(attribute_name = "hwa", attribute_definition = "Hemlock woolly adelgid density per meter of branch",
attribute_label = "NA",
measurement_scale = "ordinal", domain = "enumerated",
definition = "code_definition"),
list(attributeName = "hwa", attributeDefinition = "Hemlock woolly adelgid density per meter of branch",
attributeLabel = "NA", measurementScale = list(
ordinal = list(nonNumericDomain = list(enumeratedDomain = "code_definition")))))
expect_equal(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number", unit_precision = "1",
number_type = "whole", minimum = "0", maximum = "10"),
list(attributeName = "Count", attributeDefinition = "Number of individuals observed",
attributeLabel = "NA", measurementScale = list(
interval = list(unit = list(standardUnit = "number"),
numericDomain =
list(numberType = "whole",
bounds = list(minimum =
list(exclusive = "false",
minimum = "0"),
maximum = list(exclusive = "false",
maximum = "10"))),
precision = "1"))))
expect_equal(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", number_type = "real",
minimum = "NA", maximum = "NA"),
list(attributeName = "pH", attributeDefinition = "pH of soil solution",
attributeLabel = "NA", measurementScale = list(
ratio = list(unit = list(standardUnit = "dimensionless"),
numericDomain = list(numberType = "real",
bounds = list(minimum = list(exclusive = "false",
minimum = "NA"), maximum = list(exclusive = "false",
maximum = "NA"))),
precision = "0.01"))))
expect_equal(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime",
date_time_format = "YYYY", date_time_precision = "1",
minimum = "1993", maximum = "2003"),
list(attributeName = "Yrs", attributeDefinition = "Calendar year of the observation from years 1990 - 2010.",
attributeLabel = "Years", measurementScale = list(
dateTime = list(formatString = "YYYY", dateTimePrecision = "1",
dateTimeDomain = list(bounds = list(minimum = list(
exclusive = "false", minimum = "1993"), maximum = list(
exclusive = "false", maximum = "2003")))))))
})
test_that('Correct error and warning messages are produced', {
attribute_info <- "test_data.csv"
datatable_description <- "Salmonid data"
file_name = "test_data.csv"
expect_error(create_datatable(attribute_info = attribute_info,
datatable_description = datatable_description))
expect_error(create_datatable(filepath = file_name,
attribute_info = attribute_info))
})
#Tests for create_physical function
test_that('Correct error and warning messages are produced for the create_physical function', {
expect_error(create_physical(),
'argument "file_path" is missing, with no default')
})
test_that('The create_physical function adds the physical elements', {
expect_equal(create_physical(file_path = "test_data.csv",
data_url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv"),
list(objectName = "test_data.csv", size = list(unit = "bytes",
size = "128"),
authentication = list(method = "MD5", authentication = "087fcb503f9d2800d3d2695e4a371dfe"),
dataFormat = list(textFormat = list(numHeaderLines = "1",
recordDelimiter = "\\n", attributeOrientation = "column",
simpleDelimited = list(fieldDelimiter = ","))), distribution = list(
online = list(url = list(url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv",
`function` = "download")))))
expect_equal(create_physical(file_path = "test_data.csv",
number_of_headers = "1",
record_delimiter = "\\r\\n",
attribute_orientation = "column",
field_delimiter = ",",
data_url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv"),
list(objectName = "test_data.csv", size = list(unit = "bytes",
size = "128"),
authentication = list(method = "MD5", authentication = "087fcb503f9d2800d3d2695e4a371dfe"),
dataFormat = list(textFormat = list(numHeaderLines = "1",
recordDelimiter = "\\r\\n", attributeOrientation = "column",
simpleDelimited = list(fieldDelimiter = ","))), distribution = list(
online = list(url = list(url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv",
`function` = "download")))))
})
CVPIA-OSC/EMLaide documentation built on Aug. 25, 2023, 8:53 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Tests for create_attribute function
test_that('Correct error and warning messages are produced.', {
expect_error(create_attribute(attribute_definition = "Latitude", attribute_label = "Lat",
measurement_scale = "ordinal",
domain = "text", definition = "Latitude", text_pattern = "Latitudes"),
'Please provide attribute name.')
expect_error(create_attribute(attribute_name = "LatitudeDD",
attribute_label = "Lat", measurement_scale = "ordinal",
domain = "text", definition = "Latitude", text_pattern = "Latitudes"),
'Please provide a brief definition of the attribute you are including.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Lat",
domain = "text", definition = "Latitude", text_pattern = "Latitudes"),
'Please provide a measurement scale.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Lat", measurement_scale = "ordinal",
domain = "text", text_pattern = "Latitudes"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "site_id", attribute_label = "sites",
attribute_definition = "Site id as used in sites table",
measurement_scale = "nominal", domain = "text",
text_pattern = "ids"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "site_id", attribute_label = "sites",
attribute_definition = "Site id as used in sites table",
measurement_scale = "nominal",
definition = "Sites", text_pattern = "ids"),
'Please provide a domain of "text" or "enumerated" and supply the remaining applicable inputs.')
expect_error(create_attribute(attribute_name = "Recap", attribute_definition = "Has the Turtle been captured and tagged previously",
attribute_label = "Turtles",
measurement_scale = "nominal", domain = "enumerated"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Latitude",
measurement_scale = "ordinal", definition = "Latitude",
text_pattern = "NA"),
'Please provide a domain of "text" or "enumerated" and supply the remaining applicable inputs.')
expect_error(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "Latitude",
measurement_scale = "ordinal", domain = "text", text_pattern = "NA"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "hwa", attribute_definition = "Hemlock woolly adelgid density per meter of branch",
measurement_scale = "ordinal",
attribute_label = "hemlock wolly adelgid", domain = "enumerated"),
'Please provide the description for your measurement scale.')
expect_error(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", unit_precision = "1",
number_type = "whole", minimum = "0", maximum = "10"),
'Please provide what units your measurement scale uses.')
expect_warning(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
number_type = "whole", minimum = "0", maximum = "10"),
'Please provide what level of precision your measurements use.')
expect_error(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
unit_precision = "1", minimum = "0", maximum = "10"),
'Please provide what type of numbers are being used.')
expect_error(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
units = "number",
unit_precision = "1", minimum = "0", maximum = "10"),
"Please provide a type of 'interval' or 'ratio'.")
expect_warning(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
unit_precision = "1", number_type = "whole", maximum = "10"),
'Please provide a minimum theoretical value if applicable.')
expect_warning(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number",
unit_precision = "1", number_type = "whole", minimum = "0"),
'Please provide a maximum theoretical value if applicable.')
expect_error(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", unit_precision = "0.01",
number_type = "real", minimum = "0", maximum = "14"),
'Please provide what units your measurement scale uses.')
expect_warning(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
number_type = "real", minimum = "0", maximum = "14"),
'Please provide what level of precision your measurements use.')
expect_error(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", minimum = "0", maximum = "14"),
'Please provide what type of numbers are being used.')
expect_error(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", units = "dimensionless",
unit_precision = "0.01", minimum = "0", maximum = "14"),
"Please provide a type of 'interval' or 'ratio'.")
expect_warning(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", number_type = "real", maximum = "14"),
'Please provide a minimum theoretical value if applicable.')
expect_warning(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", number_type = "real", minimum = "0"),
'Please provide a maximum theoretical value if applicable')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime",
date_time_precision = "1", minimum = "1993", maximum = "2003"),
'Please provide the correct format of which your date time attribute is in.')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime", date_time_format = "YYYY",
minimum = "1993", maximum = "2003"),
'Please provide the level of precision your date time attribute has.')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime", date_time_format = "YYYY",
date_time_precision = "1", maximum = "2003"),
'Please provide the earliest date time used.')
expect_error(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime", date_time_format = "YYYY",
date_time_precision = "1", minimum = "1993"),
'Please provide the latest date time used.')
})
test_that('The attribute function adds attribute elements.', {
expect_equal(create_attribute(attribute_name = "site_id", attribute_definition = "Site id as used in sites table",
attribute_label = "NA",
measurement_scale = "nominal", domain = "text",
definition = "Site id as used in sites table.", text_pattern = "NA"),
list(attributeName = "site_id", attributeDefinition = "Site id as used in sites table",
attributeLabel = "NA", measurementScale = list(
nominal = list(nonNumericDomain = list(textDomain = list(
definition = "Site id as used in sites table.", pattern = "NA"))))))
expect_equal(create_attribute(attribute_name = "Recap", attribute_definition = "Has the Turtle been captured and tagged previously",
attribute_label = "NS",
measurement_scale = "nominal", domain = "enumerated",
definition = "code_definition"),
list(attributeName = "Recap", attributeDefinition = "Has the Turtle been captured and tagged previously",
attributeLabel = "NS", measurementScale = list(
nominal = list(nonNumericDomain = list(enumeratedDomain = "code_definition")))))
expect_equal(create_attribute(attribute_name = "LatitudeDD", attribute_definition = "Latitude",
attribute_label = "NA", measurement_scale = "ordinal",
domain = "text", definition = "Latitude", text_pattern = "NA"),
list(attributeName = "LatitudeDD", attributeDefinition = "Latitude",
attributeLabel = "NA", measurementScale = list(
ordinal = list(nonNumericDomain = list(textDomain = list(
definition = "Latitude", pattern = "NA"))))))
expect_equal(create_attribute(attribute_name = "hwa", attribute_definition = "Hemlock woolly adelgid density per meter of branch",
attribute_label = "NA",
measurement_scale = "ordinal", domain = "enumerated",
definition = "code_definition"),
list(attributeName = "hwa", attributeDefinition = "Hemlock woolly adelgid density per meter of branch",
attributeLabel = "NA", measurementScale = list(
ordinal = list(nonNumericDomain = list(enumeratedDomain = "code_definition")))))
expect_equal(create_attribute(attribute_name = "Count", attribute_definition = "Number of individuals observed",
attribute_label = "NA", measurement_scale = "interval",
type = "interval", units = "number", unit_precision = "1",
number_type = "whole", minimum = "0", maximum = "10"),
list(attributeName = "Count", attributeDefinition = "Number of individuals observed",
attributeLabel = "NA", measurementScale = list(
interval = list(unit = list(standardUnit = "number"),
numericDomain =
list(numberType = "whole",
bounds = list(minimum =
list(exclusive = "false",
minimum = "0"),
maximum = list(exclusive = "false",
maximum = "10"))),
precision = "1"))))
expect_equal(create_attribute(attribute_name = "pH", attribute_definition = "pH of soil solution",
attribute_label = "NA",
measurement_scale = "ratio", type = "ratio", units = "dimensionless",
unit_precision = "0.01", number_type = "real",
minimum = "NA", maximum = "NA"),
list(attributeName = "pH", attributeDefinition = "pH of soil solution",
attributeLabel = "NA", measurementScale = list(
ratio = list(unit = list(standardUnit = "dimensionless"),
numericDomain = list(numberType = "real",
bounds = list(minimum = list(exclusive = "false",
minimum = "NA"), maximum = list(exclusive = "false",
maximum = "NA"))),
precision = "0.01"))))
expect_equal(create_attribute(attribute_name = "Yrs", attribute_label = "Years",
attribute_definition = "Calendar year of the observation from years 1990 - 2010.",
measurement_scale = "dateTime",
date_time_format = "YYYY", date_time_precision = "1",
minimum = "1993", maximum = "2003"),
list(attributeName = "Yrs", attributeDefinition = "Calendar year of the observation from years 1990 - 2010.",
attributeLabel = "Years", measurementScale = list(
dateTime = list(formatString = "YYYY", dateTimePrecision = "1",
dateTimeDomain = list(bounds = list(minimum = list(
exclusive = "false", minimum = "1993"), maximum = list(
exclusive = "false", maximum = "2003")))))))
})
test_that('Correct error and warning messages are produced', {
attribute_info <- "test_data.csv"
datatable_description <- "Salmonid data"
file_name = "test_data.csv"
expect_error(create_datatable(attribute_info = attribute_info,
datatable_description = datatable_description))
expect_error(create_datatable(filepath = file_name,
attribute_info = attribute_info))
})
#Tests for create_physical function
test_that('Correct error and warning messages are produced for the create_physical function', {
expect_error(create_physical(),
'argument "file_path" is missing, with no default')
})
test_that('The create_physical function adds the physical elements', {
expect_equal(create_physical(file_path = "test_data.csv",
data_url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv"),
list(objectName = "test_data.csv", size = list(unit = "bytes",
size = "128"),
authentication = list(method = "MD5", authentication = "087fcb503f9d2800d3d2695e4a371dfe"),
dataFormat = list(textFormat = list(numHeaderLines = "1",
recordDelimiter = "\\n", attributeOrientation = "column",
simpleDelimited = list(fieldDelimiter = ","))), distribution = list(
online = list(url = list(url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv",
`function` = "download")))))
expect_equal(create_physical(file_path = "test_data.csv",
number_of_headers = "1",
record_delimiter = "\\r\\n",
attribute_orientation = "column",
field_delimiter = ",",
data_url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv"),
list(objectName = "test_data.csv", size = list(unit = "bytes",
size = "128"),
authentication = list(method = "MD5", authentication = "087fcb503f9d2800d3d2695e4a371dfe"),
dataFormat = list(textFormat = list(numHeaderLines = "1",
recordDelimiter = "\\r\\n", attributeOrientation = "column",
simpleDelimited = list(fieldDelimiter = ","))), distribution = list(
online = list(url = list(url = "https://github.com/FlowWest/edi.935.1/blob/main/data/Chinook.csv",
`function` = "download")))))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.