testthat("Downloading data works", { phylotastic <- nsf_return(keyword="phylotastic") expect_gte(nrow(phylotastic),1) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.