data-raw/create_origen.R

library(devtools)

usethis::use_data_raw()

original_wd <- getwd()
setwd("data-raw")

origen <- read.csv("origen.csv", colClasses = c("factor", "factor"), fileEncoding = "UTF-8")

# use_data() create the file in /data
usethis::use_data(origen, overwrite = TRUE)

devtools::document()

setwd(original_wd)
rm(original_wd, origen)
Eucrow/sapmuebase documentation built on April 17, 2024, 10:29 a.m.