Running examples in ‘epoxy-Ex.R’ failed
The error most likely occurred in:

> ### Name: ui_epoxy_markdown
> ### Title: Epoxy Markdown Template for Shiny
> ### Aliases: ui_epoxy_markdown
> 
> ### ** Examples
> 
> ## Don't show: 
> if (rlang::is_installed("shiny")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(shiny)
+ 
+ # Shiny epoxy template functions don't support inline transformations,
+ # so we still have to do some prep work ourselves.
+ bechdel <- epoxy::bechdel
+ 
+ as_dollars <- scales::label_dollar(
+   scale_cut = scales::cut_short_scale()
+ )
+ bechdel$budget <- as_dollars(bechdel$budget)
+ bechdel$domgross <- as_dollars(bechdel$domgross)
+ 
+ vowels <- c("a", "e", "i", "o", "u")
+ bechdel$genre  <- paste(
+   ifelse(substr(tolower(bechdel$genre), 1, 1) %in% vowels, "an", "a"),
+   tolower(bechdel$genre)
+ )
+ 
+ movie_ids <- rlang::set_names(
+   bechdel$imdb_id,
+   bechdel$title
+ )
+ 
+ ui <- fixedPage(
+   fluidRow(
+     column(
+       width = 3,
+       selectInput("movie", "Movie", movie_ids),
+       uiOutput("poster")
+     ),
+     column(
+       width = 9,
+       ui_epoxy_markdown(
+         .id = "about_movie",
+         "
+ ## {{title}}
+ 
+ **Released:** {{ year }} \\
+ **Rated:** {{ rated }} \\
+ **IMDB Rating:** {{ imdb_rating }}
+ 
+ _{{ title }}_ is {{ genre }} film released in {{ year }}.
+ It was filmed in {{ country }} with a budget of {{ budget }}
+ and made {{ domgross }} at the box office.
+ _{{ title }}_ recieved a Bechdel rating of **{{ bechdel_rating }}**
+ for the following plot:
+ 
+ > {{ plot }}
+ "
+       )
+     )
+   )
+ )
+ 
+ server <- function(input, output, session) {
+   movie <- reactive({
+     bechdel[bechdel$imdb_id == input$movie, ]
+   })
+ 
+   output$about_movie <- render_epoxy(.list = movie())
+   output$poster <- renderUI(
+     img(
+       src = movie()$poster,
+       alt = paste0("Poster for ", movie()$title),
+       style = "max-height: 400px; max-width: 100%; margin: 0 auto; display: block;"
+     )
+   )
+ }
+ 
+ if (interactive()) {
+   shinyApp(ui, server)
+ }
+ ## Don't show: 
+ }) # examplesIf
> library(shiny)
> bechdel <- epoxy::bechdel
> as_dollars <- scales::label_dollar(scale_cut = scales::cut_short_scale())
> bechdel$budget <- as_dollars(bechdel$budget)
> bechdel$domgross <- as_dollars(bechdel$domgross)
> vowels <- c("a", "e", "i", "o", "u")
> bechdel$genre <- paste(ifelse(substr(tolower(bechdel$genre), 1, 1) %in% 
+     vowels, "an", "a"), tolower(bechdel$genre))
> movie_ids <- rlang::set_names(bechdel$imdb_id, bechdel$title)
> ui <- fixedPage(fluidRow(column(width = 3, selectInput("movie", "Movie", 
+     movie_ids), uiOutput("poster")), column(width = 9, ui_epoxy_markdown(.id = "about_movie", 
+     "\n## {{title}}\n\n**Released:** {{ year }} \\\n**Rated:** {{ rated }} \\\n**IMDB Rating:** {{ imdb_rating }}\n\n_{{ title }}_ is {{ genre }} film released in {{ year }}.\nIt was filmed in {{ country }} with a budget of {{ budget }}\nand made {{ domgross }} at the box office.\n_{{ title }}_ recieved a Bechdel rating of **{{ bechdel_rating }}**\nfor the following plot:\n\n> {{ plot }}\n"))))
Warning: No Pandoc version available.
Error in `pandoc_run()`:
! Requested Pandoc binary is not available: default
Backtrace:
     ▆
  1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...)
  2. │ └─base::source(...)
  3. │   ├─base::withVisible(eval(ei, envir))
  4. │   └─base::eval(ei, envir)
  5. │     └─base::eval(ei, envir)
  6. ├─shiny::fixedPage(...)
  7. │ ├─shiny::bootstrapPage(...)
  8. │ │ └─rlang::list2(...)
  9. │ └─htmltools::div(class = "container", ...)
 10. │   └─rlang::dots_list(...)
 11. ├─shiny::fluidRow(...)
 12. │ └─htmltools::div(class = "row", ...)
 13. │   └─rlang::dots_list(...)
 14. ├─shiny::column(...)
 15. │ └─htmltools::div(class = colClass, ...)
 16. │   └─rlang::dots_list(...)
 17. └─epoxy::ui_epoxy_markdown(.id = "about_movie", "\n## {{title}}\n\n**Released:** {{ year }} \\\n**Rated:** {{ rated }} \\\n**IMDB Rating:** {{ imdb_rating }}\n\n_{{ title }}_ is {{ genre }} film released in {{ year }}.\nIt was filmed in {{ country }} with a budget of {{ budget }}\nand made {{ domgross }} at the box office.\n_{{ title }}_ recieved a Bechdel rating of **{{ bechdel_rating }}**\nfor the following plot:\n\n> {{ plot }}\n")
 18.   ├─rlang::exec(.markdown_fn, lines, !!!.markdown_args)
 19.   └─epoxy (local) `<fn>`(`<named list>`)
 20.     └─pandoc::pandoc_convert(text = lines, to = "html", ...)
 21.       └─pandoc::pandoc_run(args, version = version)
 22.         └─rlang::abort(...)
Execution halted