Nothing
context("get_timeline")
test_that("get_timeline", {
skip_on_cran()
n <- 400
token <- readRDS("twitter_tokens")
x <- get_timeline(c("cnnbrk", "cnn"), n = n, token = token)
expect_true(is.data.frame(x))
expect_named(x)
expect_true("status_id" %in% names(x))
expect_gt(nrow(x), 100)
expect_gt(ncol(x), 25)
xts <- ts_data(x, by = "days")
expect_true(is.data.frame(xts))
p <- ts_plot(xts)
#expect_true(inherits(p, "ggplot"))
#if (requireNamespace("ggplot2", quietly = TRUE)) {
g <- readRDS("g.rds")
p <- ts_plot(g, "hours", trim = 1)
expect_true(inherits(p, "ggplot"))
d <- ts_data(g, "hours", trim = 1)
expect_true(is.data.frame(d))
#expect_equal(ncol(d), 4)
unlink("Rplots.pdf")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.