data-raw/person.R

In data-cleaning/dcmodifydb: Modifying Rules on a DataBase

# create a dataset to be used for testing in dcmodifydb

person <- read.csv(text="
income, age, gender, year, smokes, cigarettes
  2000,  12,      M, 2020,     no,         10
  2010,  14,      f, 2019,    yes,          4
  2010,  25,      v,   19,     no,
  1010,  65,      M,   20,    yes,
", strip.white=TRUE)

usethis::use_data(person, overwrite = TRUE)


dir.create("inst/db", showWarnings = FALSE, recursive = TRUE)
con <- DBI::dbConnect(RSQLite::SQLite(), db = "inst/db/person.db")
DBI::dbWriteTable(con, "person", person, overwrite=TRUE)
DBI::dbDisconnect(con)