tests/testthat/test-youtube.R

In metricminer: Mine Metrics from Common Places on the Web

auth_tokens <-
  c(
    Sys.getenv("METRICMINER_GOOGLE_REFRESH"),
    Sys.getenv("METRICMINER_GOOGLE_ACCESS")
  )

if (all(!(auth_tokens == ""))) {
  test_that("Youtube", {
    # Interactively create google token
    auth_from_secret("google",
      refresh_token = Sys.getenv("METRICMINER_GOOGLE_REFRESH"),
      access_token = Sys.getenv("METRICMINER_GOOGLE_ACCESS"),
      cache = FALSE,
      in_test = TRUE
    )

    youtube_channel <- get_youtube_channel_stats("UCr73I9ZEPbn-3_1CBM57QgQ")

    expect_named(youtube_channel, c("viewCount", "subscriberCount", "hiddenSubscriberCount", "videoCount"))

    youtube_vid <- get_youtube_video_stats("XN_QPRrJZAw")

    expect_s3_class(youtube_vid, "data.frame")
  })
} else {
  message("testthat tests skipped because no auth detected")
}