# NOT RUN {
library(dataesgobr)
file <- system.file("extdata", "fichero.csv", package="dataesgobr")
correct <- check_csv_file(file, noconfirm = TRUE)
correct <- check_csv_file(file, noconfirm = TRUE, outfile = tempdir())
correct <- check_csv_file(file, noconfirm = TRUE, filename = "nuevo.csv")
correct <- check_csv_file(file, noconfirm = TRUE, outfile = tempdir())
# }
Run the code above in your browser using DataLab