## code to prepare `DATASET` dataset goes here
usethis::use_data(DATASET, overwrite = TRUE)
test_train <- readr::read_csv("inst/extdata/train.csv") %>%
dplyr::filter(center_id %in% c(10, 61), meal_id %in% c(1062, 2956))
readr::write_csv(test_train, "tests/testthat/test-train.csv")
test_test <- readr::read_csv("inst/extdata/test_QoiMO9B.csv", n_max = 30)
readr::write_csv(test_test, "tests/test-test.csv")
test_meal <- readr::read_csv("inst/extdata/meal_info.csv", n_max = 30)
readr::write_csv(test_meal, "tests/test-meal.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.