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.