if (interactive()) {
# A list of data/lookup names:
fs = list(c('data.csv', 'lookup.csv')
, c("data_unique.csv", "lookup_unique.csv")
, c('data_id.csv', 'lookupNA.csv')
, c('data_id.csv', 'lookupDUP.csv')
, c('chile.csv', 'chile_nadup.csv')
, c('data_id.csv', 'lookup_id.csv')
, c('data_id.csv', 'lookup_idsimple.csv')
, c('chile.csv', 'chile_id.csv')
)
##Not run:
dir = system.file("extdata", package = "replacer")
bReplace(dir, fs, save = FALSE, msgs = TRUE)
}
Run the code above in your browser using DataLab