tests/testthat/test_youtube.R

In MarkEdmondson1234/youtubeAnalyticsR: YouTube Analytics API

context("Authentication")

test_that("Can authentication", {

  auth <- yt_auth()

  expect_s3_class(auth, "Token")

})

context("Reports")

test_that("Can get a basic report", {

  ya <- yt_analytics("UCvcKAjtJAzVr0vgLNR5w7Fg", start.date = "2016-09-01", end.date = "2016-10-01", metrics = "views", dimensions = "day")

  expect_equal(ya$kind, "youtubeAnalytics#resultTable")
})