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

#
# .onLoad <- function(libname, pkgname) {
#   # op <- options()
#   # op.trakt <- list(
#   #   trakt_db_path = "~/db"
#   # )
#   # toset <- !(names(op.trakt) %in% names(op))
#   # if (any(toset)) options(op.trakt[toset])
#
#   # local({
#   #   temp_path <- file.path(system.file(package = "attrakttv"), "db")
#   #
#   #   if (!file.exists(Sys.getenv("trakt_db_path", unset = temp_path))) {
#   #     dir.create(Sys.getenv("trakt_db_path", unset = temp_path), recursive = TRUE)
#   #
#   #     db_init()
#   #   }
#   #
#   # })
#
# }


globalVariables(c(
  "trakt", "cache_date", "available_translations", "genres", "updated_at",
  "first_aired", "show_id", "likes", "tvdb", ".", "lang",
  "seed_shows", "seed_episodes", "seed_seasons", "seed_requests", "seed_posters",
  "title"
))