ShinyMCE 在 renderUI 和 shinyDashboard 中不起作用

Question

这个 MWE 正在工作：

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)

这是它的样子：

但是，如果我在renderUI tinyMCE

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)

..它不能正常工作：

我需要使用renderUI ，因为我有几个元素要在主体中呈现。 有什么建议吗？

Answer 1

正如我在这里看到的。 我在 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)

它解决了我的问题。