Nothing
test_that("upload_media_to_twitter() can handle small file", {
# gif - unchunk 1MB
vcr::use_cassette("upload_media_to_twitter1", {
id <- upload_media_to_twitter(test_path("tweet.gif"), chunk_size = 1024 * 1024)
})
expect_type(id, "character")
# doesn't appear to be any way to get info about a media object
# after it's been uploaded
# gif - chunk 5KB
vcr::use_cassette("upload_media_to_twitter2", {
id <- upload_media_to_twitter(test_path("tweet.gif"), chunk_size = 5 * 1024)
})
expect_type(id, "character")
# mp4 - test forced chunk / small file w/ high chunk sizes
vcr::use_cassette("upload_media_to_twitter3", {
id <- upload_media_to_twitter(test_path("tweet.mp4"), chunk_size = 1024 * 1024)
})
expect_type(id, "character")
})
test_that("check_media handles well multiple files", {
media <- c("image.png", "image.png")
expect_error(check_media(media, letters[1:2]), NA)
files <- c(test_path("testing_plot.png"), test_path("testing_plot.jpg"))
vcr::use_cassette("upload_multiple_media_to_twitter", {
id <- post_tweet("Testing multiple media", media = files,
media_alt_text = c("mp4 for testing", "gif for testing"))
})
})
test_that("can set alt text", {
vcr::use_cassette("upload_media_to_twitter4", {
id <- upload_media_to_twitter(test_path("tweet.gif"), alt_text = "A bird tweeting")
})
expect_type(id, "character")
})
test_that("post_tweet works", {
skip_if_offline() # destroy id changes on each test
msg <- paste("test", Sys.time()) # To avoid having duplicated status
expect_message(pt <- post_tweet(msg), "Your tweet has been posted!")
#pt = post tweet
cpt <- httr::content(pt)
expect_equal(httr::status_code(pt), 200L)
expect_message(dt <- post_destroy(cpt$id_str), "Your tweet has been deleted!")
# dt = destroy tweet
expect_equal(httr::status_code(dt), 200L)
})
test_that("post_tweet geolocated works", {
skip_if_offline() # destroy id changes on each test
# Test geolocated tweet
msg <- paste("test geolocated", Sys.time()) # To avoid having duplicated status
expect_message(pt <- post_tweet(msg, lat = -36.811784, long = 174.792657),
"Your tweet has been posted!")
cpt <- httr::content(pt)
expect_message(dt <- post_destroy(cpt$id_str), "Your tweet has been deleted!")
expect_equal(httr::status_code(dt), 200L)
# Test display_coordinates param
msg <- paste("test geolocated", Sys.time()) # To avoid having duplicated status
expect_message(pt <- post_tweet(msg, lat = -36.811784, long = 174.792657,
display_coordinates = TRUE),
"Your tweet has been posted!")
cpt <- httr::content(pt)
expect_message(dt <- post_destroy(cpt$id_str), "Your tweet has been deleted!")
expect_equal(httr::status_code(dt), 200L)
})
test_that("Check geo-related inputs for post_tweet", {
# All these post_tweets fail
expect_snapshot(error = TRUE, {
msg <- paste("test geolocated error", Sys.time()) # To avoid having duplicated status
post_tweet(msg, lat = "x", long = 0)
post_tweet(msg, lat = 0, long = "x")
post_tweet(msg, lat = 91, long = 0)
post_tweet(msg, lat = 0, long = 181)
post_tweet(msg, lat = 0, long = 0, display_coordinates = "error")
})
})
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.