# export location
expot_loc <- system.file("extdata", "sT_exports", "lnames",
"s_export_CSV-xls_CTU05_long_ref_miss_en_utf8.zip",
package = "secuTrialR")
# read export
sT_export <- read_secuTrial(expot_loc)
# plot recruitment
plot_recruitment(sT_export)
# plot without trailing bracket
plot_recruitment(sT_export, rm_regex = "\\(.*\\)$")
Run the code above in your browser using DataLab