| editor-shiny | R Documentation | 
editor()Output and render functions for using editor() within Shiny
applications and interactive Rmd documents.
editorOutput(outputId, width = "100%", height = "600px")
renderEditor(expr, env = parent.frame(), quoted = FALSE)
| outputId | Output variable to read from. | 
| width,height | Must be a valid CSS unit (like  | 
| expr | An expression that generates a calendar | 
| env | The environment in which to evaluate  | 
| quoted | Is  | 
Output element that can be included in UI. Render function to create output in server.
library(shiny)
library(toastui)
ui <- fluidPage(
  tags$h2("editor shiny example"),
  tabsetPanel(
    tabPanel(
      title = "Default",
      editorOutput("default"),
      tags$b("CHECK HEIGHT")
    ),
    tabPanel(
      title = "WYSIWYG",
      editorOutput("wysiwyg"),
      tags$b("CHECK HEIGHT")
    ),
    tabPanel(
      title = "Vertical",
      editorOutput("vertical"),
      tags$b("CHECK HEIGHT")
    )
  )
)
server <- function(input, output, session) {
  
  output$default <- renderEditor({
    editor(minHeight = "400px")
  })
  
  output$wysiwyg <- renderEditor({
    editor(initialEditType = "wysiwyg", hideModeSwitch = TRUE)
  })
  
  output$vertical <- renderEditor({
    editor(previewStyle = "vertical")
  })
  
}
if (interactive())
  shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.