-
Notifications
You must be signed in to change notification settings - Fork 0
/
data.check.R
executable file
·29 lines (23 loc) · 1014 Bytes
/
data.check.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
# Check all the data and structures. This should be run after all data cleaning has been completed
# It calls a series of scripts that each check a single variable
# The global var, check.error, will be created if it does not exist. Any error messages will be stored here.
# Note: "constant.R" must be run first.
# Create the check.error varible if it does not exist
if (!exists("check.error")) {
check.error <- data.frame(var=character(), comment=character(), value=character())
}
################################################################################
# TODO: List of scripts that are to be called to validate all data
#
# Example:
#
### pci.compliance
# source(paste(path.R.final, 'data.check.pci.compliance.R', sep='/'))
#
### PRL omitted slots
# source(paste(path.R.final, 'data.check.prl.omitted.slots.R', sep='/'))
#
#################################################################################
rm(check.error)
### as295
source(paste(path.R.final, 'data.check.as295.R', sep='/'))