diff --git a/R/fileValidation.r b/R/fileValidation.r index 57a578e..df336eb 100644 --- a/R/fileValidation.r +++ b/R/fileValidation.r @@ -189,18 +189,18 @@ file_separator <- function(data, meta) { if ((grepl(",", data) == FALSE) && (grepl(",", meta) == FALSE)) { output <- list( "result" = "FAIL", - "message" = paste0("Neither of the data and metadata files appear to be using a comma delimited structure.
- See the ", "guidance on how to save the files", " if you are unsure.") + "message" = paste0("Neither of the data and metadata files appear to be using a comma delimited structure.
- See the ", "guidance on data formats and guidance how to save data files in the right format", " if you are unsure.") ) } else { if (grepl(",", meta)) { output <- list( "result" = "FAIL", - "message" = paste0("The data file does not appear to be using a comma delimited structure.
- See the ", "guidance on how to save the files", " if you are unsure.") + "message" = paste0("The data file does not appear to be using a comma delimited structure.
- See the ", "guidance on how to save the files", " if you are unsure.") ) } else { output <- list( "result" = "FAIL", - "message" = paste0("The metadata file does not appear to be using a comma delimited structure.
- See the ", "guidance on how to save the files", " if you are unsure.") + "message" = paste0("The metadata file does not appear to be using a comma delimited structure.
- See the ", "guidance on how to save the files", " if you are unsure.") ) } } diff --git a/R/mainTests.r b/R/mainTests.r index 2e3df77..880f53c 100644 --- a/R/mainTests.r +++ b/R/mainTests.r @@ -141,7 +141,7 @@ variable_characteristic <- function(meta) { "message" = paste( "The fields characteristic and/or characteristic_group have been included in the data.", "These are not recommended for use with the EES Table Tool.", - "Please refer to the guidance pages on filters." + "Please refer to the guidance pages on filters." ), "result" = "ADVISORY" ) @@ -639,7 +639,7 @@ time_period <- function(data) { if (base_identifier %in% four_digit_identifiers) { if ((nrow(filter(time_length, digits == 4)) == nrow(time_length)) == FALSE) { output <- list( - "message" = paste0("The time_period length for '", paste(base_identifier), "' must always be a four digit number.
- Please check the ", "guidance website if you are unsure."), + "message" = paste0("The time_period length for '", paste(base_identifier), "' must always be a four digit number.
- Please check the ", "guidance website if you are unsure."), "result" = "FAIL" ) } else { @@ -653,7 +653,7 @@ time_period <- function(data) { if (base_identifier %in% six_digit_identifiers) { if ((nrow(filter(time_length, digits == 6)) == nrow(time_length)) == FALSE) { output <- list( - "message" = paste0("The time_period length for '", paste(base_identifier), "' must always be a six digit number.
- Please check the ", "guidance website if you are unsure."), + "message" = paste0("The time_period length for '", paste(base_identifier), "' must always be a six digit number.
- Please check the ", "guidance website if you are unsure."), "result" = "FAIL" ) } else { @@ -850,7 +850,7 @@ geography_level_completed <- function(data) { output <- list( "message" = paste0( "The following columns should be completed for all rows of the associated level that they refer to:
- '", paste0(incomplete_geographies, collapse = "', '"), "' .
- If you are unsure of the levels that they refer to, please check the ", - "allowable geographic values table." + "allowable geographic values table." ), "result" = "FAIL" ) @@ -2645,7 +2645,7 @@ ethnicity_values <- function(data) { "message" = paste0( "The ethnicity filter ", value_type, " '", paste(ethnicity_nonstandard, collapse = "', '"), - "' does not conform to the GSS standards. Please cross check against the published standards." + "' does not conform to the GSS standards. Please cross check against the published standards." ), "result" = "ADVISORY" ) @@ -2654,7 +2654,7 @@ ethnicity_values <- function(data) { "message" = paste0( "The following ethnicity filter ", value_type, "s do not conform to the GSS standards:
- '", paste(ethnicity_nonstandard, collapse = "', '"), - "'.
- Please cross check against the published standards." + "'.
- Please cross check against the published standards." ), "result" = "ADVISORY" ) @@ -2730,7 +2730,7 @@ ethnicity_characteristic_values <- function(data) { "message" = paste0( "The ethnicity filter value '", paste(ethnicity_nonstandard, collapse = "', '"), - "' does not conform to the GSS standards. Please cross check against the published standards." + "' does not conform to the GSS standards. Please cross check against the published standards." ), "result" = "ADVISORY" ) @@ -2739,7 +2739,7 @@ ethnicity_characteristic_values <- function(data) { "message" = paste0( "The following ethnicity filter values do not conform to the GSS standards:
- '", paste(ethnicity_nonstandard, collapse = "', '"), - "'.
- Please cross check against the published standards." + "'.
- Please cross check against the published standards." ), "result" = "ADVISORY" ) diff --git a/R/preCheck2.r b/R/preCheck2.r index 1bb3622..a1496ec 100644 --- a/R/preCheck2.r +++ b/R/preCheck2.r @@ -36,7 +36,7 @@ time_identifier_mix <- function(data) { if (any(is.na(factor(unique(data$time_identifier), base_level))) == TRUE) { output <- list( - "message" = paste0("The datafile is mixing incompatable time identifiers.
- Allowable values with '", paste(base_identifier), "' present, are: '", paste(base_level, collapse = "', '"), "'.
- See the guidance on time values if you are unsure."), + "message" = paste0("The datafile is mixing incompatable time identifiers.
- Allowable values with '", paste(base_identifier), "' present, are: '", paste(base_level, collapse = "', '"), "'.
- See the guidance on time values if you are unsure."), "result" = "FAIL" ) } else { @@ -259,18 +259,18 @@ utf8 <- function(data, meta) { } else { if (number_data_invalid > 0 && number_meta_invalid > 0) { output <- list( - "message" = paste0("Neither of the data and metadata files are using UTF-8 encoding.
- See the ", "guidance on how to do this", " if you are unsure."), + "message" = paste0("Neither of the data and metadata files are using UTF-8 encoding.
- See the ", "guidance on how to do this", " if you are unsure."), "result" = "FAIL" ) } else { if (number_data_invalid > 0) { output <- list( - "message" = paste0("The data file is not using UTF-8 encoding.
- See the ", "guidance on how to do this", " if you are unsure."), + "message" = paste0("The data file is not using UTF-8 encoding.
- See the ", "guidance on how to do this", " if you are unsure."), "result" = "FAIL" ) } else { output <- list( - "message" = paste0("The metadata file is not using UTF-8 encoding.
- See the ", "guidance on how to do this", " if you are unsure."), + "message" = paste0("The metadata file is not using UTF-8 encoding.
- See the ", "guidance on how to do this", " if you are unsure."), "result" = "FAIL" ) } diff --git a/manifest.json b/manifest.json index 0d80026..217e13d 100644 --- a/manifest.json +++ b/manifest.json @@ -3903,7 +3903,7 @@ "checksum": "e5b9343c9a0e43d83e02b339946591d1" }, ".Rprofile": { - "checksum": "fcf55ee906692b4450fb1b843ddf6e8c" + "checksum": "ec8bbd4624ab1b090bdb8673b41d024a" }, "azure-pipelines-dev.yml": { "checksum": "fc2ef843ff5024bcba25ff84eec05f4c" @@ -3978,13 +3978,13 @@ "checksum": "51052a72b54c2e4bdddfb52762638274" }, "R/fileValidation.r": { - "checksum": "2edf7f6336a1c4b86c7b586743d810d5" + "checksum": "1c3a5b538aa71e2f377b4733e7c9a580" }, "R/knownVariables.r": { "checksum": "7248277e0e99b5aee4e66bf9e8c69963" }, "R/mainTests.r": { - "checksum": "c6f253cdfd25c3c1af1f2ee47bf3bd78" + "checksum": "6dda83d9475c4095792d073c57fb73a8" }, "R/manual_scripts/debugging.R": { "checksum": "e56763afdf3659c7c47cfe0e3262e8cf" @@ -4002,7 +4002,7 @@ "checksum": "f0ee4cca72e9cdfcd6a11a92f6efc946" }, "R/preCheck2.r": { - "checksum": "9a5c3b91f5d50ea329b367dcfe438df0" + "checksum": "e2d59f939910ad38e9867f7a41686f4c" }, "R/readFile.r": { "checksum": "23d3c726936fede5e8139667d4a4dd6a"