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)

Components

card

sample_content %>%
  slice(1) %>%
  rsc_card()

grid

sample_content %>%
  rsc_grid()

table

sample_content %>%
  rsc_table()

search & filter

rsc_cols(
  rsc_search(sample_content),
  rsc_filter(sample_content),
  widths = c(2, 2),
  device = "md")

rsc_table(sample_content)


rstudio/rscpages documentation built on June 1, 2025, 3:57 p.m.