Skip to content

Commit f9cdf61

Browse files
wibeasleywibeasley
committed
starting validation yaml
VS Code regex & sub `(.*) \| (.*) +$` & `- validation_name : $1\n fx_export : "$2"` ref #294
1 parent cb499cf commit f9cdf61

File tree

2 files changed

+146
-0
lines changed

2 files changed

+146
-0
lines changed

‎inst/misc/validation-transformation.yml

+140
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,140 @@
1+
-
2+
validation_name : alpha_only
3+
validation_label : Letters only
4+
fx_export : \(x) readr::parse_character(x)
5+
-
6+
validation_name : date_dmy
7+
validation_label : Date (D-M-Y)
8+
fx_export : \(x) readr::parse_date(x)
9+
-
10+
validation_name : date_mdy
11+
validation_label : Date (M-D-Y)
12+
fx_export : \(x) readr::parse_date(x)
13+
-
14+
validation_name : date_ymd
15+
validation_label : Date (Y-M-D)
16+
fx_export : \(x) readr::parse_date(x)
17+
-
18+
validation_name : datetime_dmy
19+
validation_label : Datetime (D-M-Y H:M)
20+
fx_export : \(x) readr::parse_datetime(x)
21+
-
22+
validation_name : datetime_mdy
23+
validation_label : Datetime (M-D-Y H:M)
24+
fx_export : \(x) readr::parse_datetime(x)
25+
-
26+
validation_name : datetime_seconds_dmy
27+
validation_label : Datetime w/ seconds (D-M-Y H:M:S)
28+
fx_export : \(x) readr::parse_datetime(x)
29+
-
30+
validation_name : datetime_seconds_mdy
31+
validation_label : Datetime w/ seconds (M-D-Y H:M:S)
32+
fx_export : \(x) readr::parse_datetime(x)
33+
-
34+
validation_name : datetime_seconds_ymd
35+
validation_label : Datetime w/ seconds (Y-M-D H:M:S)
36+
fx_export : \(x) readr::parse_datetime(x)
37+
-
38+
validation_name : datetime_ymd
39+
validation_label : Datetime (Y-M-D H:M)
40+
fx_export : \(x) readr::parse_datetime(x)
41+
-
42+
validation_name : email
43+
validation_label : Email
44+
fx_export : \(x) readr::parse_character(x)
45+
-
46+
validation_name : integer
47+
validation_label : Integer
48+
fx_export : \(x) readr::parse_integer(x)
49+
-
50+
validation_name : mrn_10d
51+
validation_label : MRN (10 digits)
52+
fx_export : \(x) readr::parse_character(x)
53+
-
54+
validation_name : mrn_generic
55+
validation_label : MRN (generic)
56+
fx_export : \(x) readr::parse_character(x)
57+
-
58+
validation_name : number
59+
validation_label : Number
60+
fx_export : \(x) readr::parse_number(x)
61+
-
62+
validation_name : number_1dp
63+
validation_label : Number (1 decimal place)
64+
fx_export : \(x) readr::parse_number(x)
65+
-
66+
validation_name : number_1dp_comma_decimal
67+
validation_label : Number (1 decimal place - comma as decimal)
68+
fx_export : \(x) readr::parse_number(x, locale = readr::locale(decimal_mark = ","))
69+
-
70+
validation_name : number_2dp
71+
validation_label : Number (2 decimal places)
72+
fx_export : \(x) readr::parse_number(x)
73+
-
74+
validation_name : number_2dp_comma_decimal
75+
validation_label : Number (2 decimal places - comma as decimal)
76+
fx_export : \(x) readr::parse_number(x, locale = readr::locale(decimal_mark = ","))
77+
-
78+
validation_name : number_3dp
79+
validation_label : Number (3 decimal places)
80+
fx_export : \(x) readr::parse_number(x)
81+
-
82+
validation_name : number_3dp_comma_decimal
83+
validation_label : Number (3 decimal places - comma as decimal)
84+
fx_export : \(x) readr::parse_number(x, locale = readr::locale(decimal_mark = ","))
85+
-
86+
validation_name : number_4dp
87+
validation_label : Number (4 decimal places)
88+
fx_export : \(x) readr::parse_number(x, locale = readr::locale(decimal_mark = ","))
89+
-
90+
validation_name : number_4dp_comma_decimal
91+
validation_label : Number (4 decimal places - comma as decimal)
92+
fx_export : \(x) readr::parse_number(x, locale = readr::locale(decimal_mark = ","))
93+
-
94+
validation_name : number_comma_decimal
95+
validation_label : Number (comma as decimal)
96+
fx_export : \(x) readr::parse_number(x)
97+
-
98+
validation_name : phone
99+
validation_label : Phone (North America)
100+
fx_export : \(x) readr::parse_character(x)
101+
-
102+
validation_name : phone_australia
103+
validation_label : Phone (Australia)
104+
fx_export : \(x) readr::parse_character(x)
105+
-
106+
validation_name : postalcode_australia
107+
validation_label : Postal Code (Australia)
108+
fx_export : \(x) readr::parse_character(x)
109+
-
110+
validation_name : postalcode_canada
111+
validation_label : Postal Code (Canada)
112+
fx_export : \(x) readr::parse_character(x)
113+
-
114+
validation_name : postalcode_french
115+
validation_label : Code Postal 5 characters (France)
116+
fx_export : \(x) readr::parse_character(x)
117+
-
118+
validation_name : postalcode_germany
119+
validation_label : Postal Code (Germany)
120+
fx_export : \(x) readr::parse_character(x)
121+
-
122+
validation_name : ssn
123+
validation_label : Social Security Number (U.S.)
124+
fx_export : \(x) readr::parse_character(x)
125+
-
126+
validation_name : time
127+
validation_label : Time (HH:MM)
128+
fx_export : \(x) readr::parse_time(x)
129+
-
130+
validation_name : time_mm_ss
131+
validation_label : Time (MM:SS)
132+
fx_export : \(x) readr::parse_time(x)
133+
-
134+
validation_name : vmrn
135+
validation_label : Vanderbilt MRN
136+
fx_export : \(x) readr::parse_character(x)
137+
-
138+
validation_name : zipcode
139+
validation_label : Zipcode (U.S.)
140+
fx_export : \(x) readr::parse_character(x)

‎playgrounds/metadata-2.R

+6
Original file line numberDiff line numberDiff line change
@@ -37,6 +37,12 @@ ds_mapping_validation_name <-
3737
"date_ymd", '\\(x) readr::parse_date(x)',
3838
)
3939

40+
ds_mapping_validation_name <-
41+
"misc/validation-transformation.yml" |>
42+
system.file(package = "REDCapR") |>
43+
yaml::yaml.load_file() |>
44+
purrr::map_df(tibble::as_tibble)
45+
4046
f <- eval(parse(text = ds_mapping_validation_name$fx_export[3]))
4147
f("234,01")
4248

0 commit comments

Comments
 (0)