library(connectwidgets) library(dplyr) knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE) client <- connect( # server = Sys.getenv("CONNECT_SERVER"), # api_key = Sys.getenv("CONNECT_API_KEY") ) all_content <- client %>% content() sample_content <- all_content %>% arrange(desc(updated_time)) %>% slice_head(n = 50)
sample_content %>% slice(1) %>% rsc_card()
sample_content %>% rsc_grid()
sample_content %>% rsc_table()
rsc_cols( rsc_search(sample_content), rsc_filter(sample_content), widths = c(2, 2), device = "md") rsc_table(sample_content)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.