data-raw/DATASET.R

## 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")
gouthaman87/av-gt-food_demand_forecast documentation built on Jan. 3, 2023, 12:11 p.m.