Header 1

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

Header 2

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

library(shiny)
## Warning: package 'shiny' was built under R version 4.0.2
ui <- fluidPage(
  textAreaInput("text", "Type your answer here:", width = '600'),
  downloadButton("download", "Download your answer")
)
server <- function(input, output) {
    output$download <- downloadHandler(
    filename = function() {
      "textarea.txt"
    },
    content = function(file) {
      cat(input$text, file=file)
    }
  )
}
shinyApp(ui, server)
## PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.
Shiny applications not supported in static R Markdown documents

You can also embed plots, for example:

### Header 3 Note that the echo = FALSE parameter was added to the