Tidy up FAERS Quarterly Data with duplicate records removed
faers_dedup(object, ...)
# S4 method for class 'FAERSascii'
faers_dedup(object, remove_deleted_cases = TRUE)
# S4 method for class 'FAERSxml'
faers_dedup(object)
# S4 method for class 'ANY'
faers_dedup(object)A FAERSascii object.
Other arguments passed to specific methods.
If TRUE, will remove all
deletedCases from the final result.
A FAERSascii object.
# you must change `dir`, as the files included in the package are sampled
data <- faers(c(2004, 2017), c("q1", "q2"),
dir = system.file("extdata", package = "faers"),
compress_dir = tempdir()
)
#> Finding 2 files already downloaded: aers_ascii_2004q1.zip and
#> faers_ascii_2017q2.zip
#> → Combining all 2 <FAERS> Datas
if (FALSE) { # \dontrun{
# we must standardize firstly
# you should replace `meddra_path` with yours
data <- faers_standardize(data, meddra_path)
faers_dedup(data)
} # }