91 lines
2.7 KiB
R
91 lines
2.7 KiB
R
|
# call this at the top of the Rmd
|
||
|
|
common_defs <- function () {
|
||
|
|
knitr::opts_chunk$set(echo = TRUE, results = "hide", message = TRUE, dev = "cairo_pdf", warning = TRUE)
|
||
|
|
knitr::opts_chunk$set(fig.pos = 'H')
|
||
|
|
|
||
|
|
options(knitr.table.format = "latex", knitr.kable.NA = "")
|
||
|
|
|
||
|
|
Sys.setlocale("LC_ALL","English")
|
||
|
|
}
|
||
|
|
|
||
|
|
# checks if file names are provided and file paths are valid.
|
||
|
|
# returns TRUE if everything's OK or FALSE if not.
|
||
|
|
|
||
|
|
check_files <- function (main, inwer) {
|
||
|
|
|
||
|
|
pass = TRUE
|
||
|
|
|
||
|
|
if (is.null(main) || main == "") {
|
||
|
|
|
||
|
|
pass = FALSE
|
||
|
|
cat ("**Main data file not provided. Please profile main data file path as 'mainFile' parameter to the script!** \n")
|
||
|
|
}
|
||
|
|
|
||
|
|
if (is.null(inwer) || inwer == "") {
|
||
|
|
|
||
|
|
pass = FALSE
|
||
|
|
cat ("**Interviewer data file not provided. Please profile interviewer data file path as 'intFile' parameter to the script!** \n")
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
if (!file.exists(main)) {
|
||
|
|
|
||
|
|
pass= FALSE
|
||
|
|
cat (paste("**I can't open the main data file '", main, "'.** \n
|
||
|
|
Did you provide a valid path to the file? \n
|
||
|
|
Please make sure that:
|
||
|
|
- it is stored on a local (not network) drive
|
||
|
|
- file name or file path does not contain any non-english characters
|
||
|
|
- file name and file path only contains characters (a-z), numbers (0-1), dash (-) or underline (_)"))
|
||
|
|
}
|
||
|
|
|
||
|
|
if (!file.exists(inwer)) {
|
||
|
|
cat (paste("**I can't open the interviewer data file '", inwer, "'.** \n
|
||
|
|
Did you provide a valid path to the file? \n
|
||
|
|
Please make sure that:
|
||
|
|
- it is stored on a local (not network) drive
|
||
|
|
- file name or file path does not contain any non-english characters
|
||
|
|
- file name and file path only contains characters (a-z), numbers (0-1), dash (-) or underline (_)"))
|
||
|
|
}
|
||
|
|
|
||
|
|
return (pass)
|
||
|
|
}
|
||
|
|
|
||
|
|
# loads the files and returns merged data
|
||
|
|
# also checks if the needed variables are present
|
||
|
|
# (check_data must be provided in additional R file, as it differs between tests)
|
||
|
|
|
||
|
|
load_files <- function (main, inwer) {
|
||
|
|
|
||
|
|
pass = TRUE
|
||
|
|
|
||
|
|
# main file
|
||
|
|
dataset <- read.csv2(main, dec=".", stringsAsFactors=F)
|
||
|
|
# exit if data is not OK
|
||
|
|
|
||
|
|
if (check_main_file(dataset) == FALSE) {
|
||
|
|
pass = FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
#interviewer file
|
||
|
|
Inwer <- read.csv2(inwer, dec=".", stringsAsFactors=F)
|
||
|
|
|
||
|
|
if (check_inwer_file(Inwer) == FALSE) {
|
||
|
|
pass = FALSE
|
||
|
|
}
|
||
|
|
|
||
|
|
# add country and interviewer ID to the main data frame; merge by idno and cntry
|
||
|
|
# only merge when files are OK
|
||
|
|
if (pass == TRUE) {
|
||
|
|
|
||
|
|
cat ("All the required variables are present, continuing with the analysis. \n")
|
||
|
|
|
||
|
|
Inwer_ID <- dplyr::select(Inwer, "intnum", "idno", "cntry")
|
||
|
|
dataset <- dplyr::left_join(dataset, Inwer_ID, by = c("idno", "cntry"))
|
||
|
|
|
||
|
|
return (dataset)
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
return (FALSE)
|
||
|
|
}
|
||
|
|
}
|