create a table of URL links to shiny examples (https://github.com/rstudio/shiny-examples)

shiny-examples.Rmd

---
title: " "
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(dplyr)
library(knitr)
library(kableExtra)
library(stringr)
```

```{r}
d <- list.files("~/github/shiny-examples")
d <- d[stringr::str_starts(d, "[:digit:]")]
url <- paste0("http://gallery.shinyapps.io/", d)
o <- data.frame(Example = cell_spec(d, "html", link = url))

o %>% kable("html", escape = FALSE) %>%
   kable_styling("striped", full_width = F, position = "left")
```