Description Usage Arguments Value Examples
View source: R/acquire_error.R
compare_two_df
compares the vars
of data frames given an uniqueId
.
1 | acquire_error_flag(df1, diffs.table, var_name, error_type)
|
df1 |
Data frame 1. |
diffs.table |
A data frame of differnces between two data frames given by |
var_name |
A string of variable name that we want to check if there is error. |
error_type |
A string of error type name:
|
It returns a data frame of df1
with an additional error flag column called var_name
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | df <- data.frame(firstname_variant=character(20), lastname_variant=character(20))
df <- add_variable(df, "nhsid")
df <- add_variable(df, "firstname", country = "uk", gender_dependency= FALSE,
age_dependency = FALSE)
df <- add_variable(df, "lastname", country = "uk", gender_dependency= FALSE,
age_dependency = FALSE)
df$firstname_variant <-as.character(df$firstname_variant)
df$lastname_variant <-as.character(df$lastname_variant)
for (i in 1:nrow(df)){
df$firstname_variant[i] = strsplit(get_transformation_name_variant(df$firstname[i]), ',')[[1]][1]
df$lastname_variant[i] = strsplit(get_transformation_name_variant(df$lastname[i]), ',')[[1]][1]
}
df1 = df[c('nhsid', 'firstname', 'lastname')]
df2 = df[c('nhsid', 'firstname_variant', 'lastname_variant')]
df2[1:3, 'firstname_variant'] = NA
vars = list(c('firstname', 'firstname_variant'), c('lastname', 'lastname_variant'))
diffs.table = compare_two_df(df1, df2, vars, 'nhsid')
df1_with_flags = acquire_error_flag(df1, diffs.table, 'firstname', 'missing')
df1_with_flags = acquire_error_flag(df1_with_flags, diffs.table, 'firstname', 'variant')
df1_with_flags = acquire_error_flag(df1_with_flags, diffs.table, 'firstname', 'pho')
df1_with_flags = acquire_error_flag(df1_with_flags, diffs.table, 'firstname', 'ocr')
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.