Add connectwidgets-example to Gallery (#75)

* Add connectwidgets-example to extensions

* Add `minimumConnectVersion` to manifest

* Add connectwidgets-example to workflow

* PR feedback changes

Author: fizzboop

.github/workflows/extensions.yml

@@ -37,6 +37,7 @@ jobs:
             stock-api-flask: extensions/stock-api-flask/**
             landing-page: extensions/landing-page/**
             stock-api-fastapi: extensions/stock-api-fastapi/**
+            connectwidgets-example: extensions/connectwidgets-example/**
 
   # Runs for each extension that has changed from `simple-extension-changes`
   # Lints and packages in preparation for tests and and release.

extensions/connectwidgets-example/README.md

@@ -0,0 +1,15 @@
+# Connectwidgets Example
+
+## About this example
+
+`connectwidgets` is an R package that can be used to query {systemDisplayName} for a subset of your existing content items, then organize them within htmlwidget components in an R Markdown document or Shiny application. Use `connectwidgets` to create a content hub or knowledge repository, a customized summary page for a particular group of stakeholders, or a presentation layer for any group of related content.
+
+
+## Learn more
+
+* [Documentation for connectwidgets](https://rstudio.github.io/connectwidgets/)
+* [R Markdown Documentation](https://rmarkdown.rstudio.com/)
+
+## Requirements
+
+* R version 4.0 or higher

extensions/connectwidgets-example/connectwidgets-example.Rmd

@@ -0,0 +1,61 @@
+---
+title: "Untitled"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+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)
+```
+
+![](https://source.unsplash.com/1920x1080/?forest "A random forest.")
+
+## Components
+
+### card
+
+```{r card}
+sample_content %>%
+  slice(1) %>%
+  rsc_card()
+```
+
+### grid
+
+```{r grid}
+sample_content %>%
+  rsc_grid()
+```
+
+### table
+
+```{r table}
+sample_content %>%
+  rsc_table()
+```
+
+### search & filter
+
+```{r search-and-filter}
+rsc_cols(
+  rsc_search(sample_content),
+  rsc_filter(sample_content),
+  widths = c(2, 2),
+  device = "md")
+
+rsc_table(sample_content)
+```

extensions/connectwidgets-example/connectwidgets-example.Rproj

@@ -0,0 +1,16 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes