Description Usage Arguments Value Note Author(s) See Also Examples
View source: R/epi_clean_compare_str.R
Compare two strings and determine if one is substring of the other. epi_clean_compare_str() uses stringi::stri_detect(). Developed when comparing a database of observed and matched values for drug treatments from the BNF. Can be used generically as a light wrapper for stri_detect(). stri_detect() determines if there is at least one match to a corresponding pattern.
1 2 | epi_clean_compare_str(df = NULL, row_n = 1, string_col = "",
fixed_chr_col = "", ...)
|
df |
a data frame object containing rows with strings to compare |
row_n |
row number within the data frame with two columns to compare, default is 1 |
string_col |
column number with value which will be passed to stri_detect as stri_detect(str = string, fixed = fixed_chr) |
fixed_chr_col |
column number value which will be passed to stri_detect as stri_detect(str = string, fixed = fixed_chr) |
... |
other options passed to stri_detect() |
returns the output of stri_detect(), a boolean TRUE/FALSE testing whether the value of fixed_chr_col is a sub-string of that in string_col
fixed_chr_col and string_col are extracted as characters and compared as fixed characters, not with regex. The value in string_col will be the character vector with strings to search in.
Antonio Berlanga-Taylor <https://github.com/AntonioJBT/episcout>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ## Not run:
test data:
letts <- paste(letters, collapse = ' ')
other_letts <- toupper(paste(letters, collapse = ' '))
df_comp <- data.frame ('sub' = rep(x = substr(letts, 1, 5), 10),
'str' = rep(x = substr(letts, 1, 5), 10),
stringsAsFactors = FALSE)
df2_comp <- data.frame ('sub' = rep(x = substr(letts, 1, 5), 10),
'str' = rep(x = substr(other_letts, 6, 10), 10),
stringsAsFactors = FALSE)
# Create a new data frame and rename columns:
df3 <- rbind(df_comp, df2_comp)
col_1 <- 'sub'
col_2 <- 'str'
val_id <- 1
# df3[val_id, c(col_1, col_2)]
# Should evaluate to TRUE:
epi_clean_compare_str(df3, val_id, col_1, col_2)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.