data-raw/seed_data.R

In jemus42/attrakttv: A Shiny Application for 'trakt.tv' TV Show Data

# Make "seed" tbls for db init

cache_db_con <- cache_db(pool = FALSE)

seed_episodes <- tbl(cache_db_con, "episodes") %>%
  head(1) %>%
  collect()
usethis::use_data(seed_episodes, overwrite = TRUE)

seed_shows <- tbl(cache_db_con, "shows") %>%
  head(1) %>%
  collect()
usethis::use_data(seed_shows, overwrite = TRUE)

seed_seasons <- tbl(cache_db_con, "seasons") %>%
  head(1) %>%
  collect()
usethis::use_data(seed_seasons, overwrite = TRUE)

seed_requests <- tbl(cache_db_con, "requests") %>%
  head(1) %>%
  collect()
usethis::use_data(seed_requests, overwrite = TRUE)

seed_posters <- tbl(cache_db_con, "posters") %>%
  head(1) %>%
  collect()
usethis::use_data(seed_posters, overwrite = TRUE)

RSQLite::dbDisconnect(cache_db_con)