options(rmarkdown.html_vignette.check_title = FALSE) knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(wastdr)
Use packaged data (fast, but older)
data("tsc_data", package = "wastdr")
Load fresh data from TSC (slow, but up to date with TSC)
get_all <- . %>% wastdr::wastd_GET() %>% wastd_parse() taxon <- get_all("taxon") taxon_fast <- get_all("taxon-fast") vernacular <- get_all("vernacular") crossreference <- get_all("crossreference") community <- get_all("community")
rt <- . %>% head() %>% reactable::reactable(sortable = T, filterable = T) tsc_data$taxon %>% rt() tsc_data$taxon_fast %>% rt() tsc_data$vernacular %>% rt() tsc_data$crossreference %>% head() %>% listviewer::jsonedit()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.