editor: HTML Editor to be shown in Shiny Apps

In deepanshu88/ShinyEditor: HTML Editor

HTML Editor to be shown in Shiny Apps

Description

It shows HTML editor to style text in text area using tinyMCE

Usage

editor(id, text = NULL, options = NULL)

Arguments

id	HTML ID to use for editor
text	Prepopulated Text to be shown in editor.
options	Options to customize editor.

Value

HTML Editor

Author(s)

Deepanshu Bhalla

Examples

library(shiny)
library(ShinyEditor)

# UI
ui <- fluidPage(

  # Setup
  use_editor("API-KEY"),
  titlePanel("HTML Generator"),

  # Text Input 1
  fluidRow(
    column(
      width = 6,
      editor('textcontent'),
      br(),
      actionButton(
        "generatehtml",
        "Generate HTML Code",
        icon = icon("code"),
        class = "btn-primary"
      )),

    column(
      width = 6,
      tags$pre(textOutput("rawText"))
    )
  )

)

# Server
server <- function(input, output, session) {

  # Generate HTML
  observeEvent(input$generatehtml, {

   editorText(session, editorid = 'textcontent', outputid = 'mytext')

    output$rawText <- renderText({
      req(input$mytext)
      enc2utf8(input$mytext)
    })

  })

}

# Run App
shinyApp(ui = ui, server = server)

deepanshu88/ShinyEditor documentation built on Aug. 27, 2022, 4:26 p.m.