test_that("meetup_call() success case", {
vcr::use_cassette("quick_fetch", {
res <- meetup_call(
api_path = "rladies-nashville/events",
event_status = "past"
)
})
expect_equal(names(res), c("result", "headers"))
expect_equal(res$headers$`content-type`, "application/json; charset=utf-8")
})
# TODO .fetch_results()
# TODO .fetch_results() no api key
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.