README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

# First Steps With The Shiny R Package

<!-- badges: start -->
[![License](https://img.shields.io/github/license/mcanouil/rshiny)](LICENSE)
<!-- badges: end -->

This is a workshop for the R package `shiny`.

```{r, include = FALSE}
library(magick)
library(here)
library(chromote)
library(glue)

thumb <- "thumbs/title_slide_thumb.png"
png <- sub("_thumb", "", thumb)
index_html <- here::here("docs/index.html")

if (!file.exists(thumb) | file.mtime(thumb) < file.mtime(index_html)) {
  web_browser <- suppressMessages(try(chromote::ChromoteSession$new(), silent = TRUE))
  if (inherits(web_browser, "try-error") && Sys.info()[["sysname"]] == "Windows") {
    edge_path <- "C:/Program Files (x86)/Microsoft/Edge/Application/msedge.exe"
    if (file.exists(edge_path)) {
      Sys.setenv(CHROMOTE_CHROME = edge_path)
      web_browser <- chromote::ChromoteSession$new()
    } else {
      stop('Please set Sys.setenv(CHROMOTE_CHROME = "Path/To/Chrome")')
    }
  }
  web_browser$Page$navigate(index_html, wait_ = FALSE)
  page_browser <- web_browser$Page$loadEventFired()
  Sys.sleep(1)
  web_browser$screenshot(
    filename = png,
    selector = "div.remark-slide-scaler",
    scale = 2
  )
  web_browser$close()
  
  resize <- function(path_in, path_out) {
    image <- image_read(path_in)
    image <- image_resize(image, "384x")
    image_write(image, path_out)
  }
  resize(png, thumb)
}
```

```{r, results = "asis", echo = FALSE}
glue::glue('<a href="{png}"><img alt="Title Slide" src="{thumb}" width="384" height="216"></a>')
```