SummeRnote

Summernote WYSIWYG HTML editor for R Shiny

This project is no longer maintained.

Install by devtools::install_github("LukasK13/SummeRnote")

Example

library(shiny)
library(SummeRnote)

ui <- fluidPage(
  summernoteInput("editor", label = "Editor", value = "Test123", height = 100,
                  toolbar = list(
                    list("style", c("bold", "italic", "underline")),
                    list("font", c("superscript", "subscript")),
                    list("Misc", c("codeview"))
                  )),
  actionButton("update", "update")
)

server <- function(input, output, session) {
  observeEvent(input$editor, {
    print(input$editor)
  })
  
  observeEvent(input$update, {
    updateSummernoteInput("editor", "Updated")
  })
}

shinyApp(ui = ui, server = server)