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"