ShinyMCE 在 renderUI 和 shinyDashboard 中不起作用

Question

This MWE is working:

library(shiny)
library(shinydashboard)
library(shinyMCE)

ui<-dashboardPage(header=dashboardHeader(),
                  sidebar=dashboardSidebar(),
                  body=dashboardBody(#uiOutput("body")
                                     tinyMCE("tinyInput","Some html text")
                                     ))

server <- function(input, output, session) {
  #output$body <- renderUI({tinyMCE('tinyInput',"Some html text")})
}

shinyApp(ui = ui, server = server)

This is how it looks like:

However, if I use the tinyMCE inside renderUI :

library(shiny)
library(shinydashboard)
library(shinyMCE)

ui<-dashboardPage(header=dashboardHeader(),
                  sidebar=dashboardSidebar(),
                  body=dashboardBody(uiOutput("body")
                                     #tinyMCE("tinyInput","Some html text")
                                     ))

server <- function(input, output, session) {
  output$body <- renderUI({tinyMCE('tinyInput',"Some html text")})
}

shinyApp(ui = ui, server = server)

..it does not work properly:

I need to use renderUI because I have several elements to render in the body. Any suggestion?

Answer 1

As I saw in here . I added the source of the script in a singleton:

library(shiny)
library(shinydashboard)
library(shinyMCE)

ui<-dashboardPage(header=dashboardHeader(),
                  sidebar=dashboardSidebar(),
                  body=dashboardBody(singleton(tags$head(tags$script(src = "//cdn.tiny.cloud/1/5a5deew2z9gml5pwn95iosioop446qny3vyfh994kujzkwu6/tinymce/5/tinymce.min.js", referrerpolicy="origin"))),
                                     uiOutput("body")
                                     #tinyMCE("tinyInput","Some html text")
                                     ))

server <- function(input, output, session) {
  output$body <- renderUI({tinyMCE('tinyInput',"Some html text")})
}

shinyApp(ui = ui, server = server)

It fixed my problem.