在同一頁面中渲染 highchartOutput + wordcloud2Output 時出現的閃亮問題

Question

我正在尋找放在我的 ui.R 中的同一個 tabPanel 中：1 highchartOutput 和 1 wordcloud2Output 但只有我的 wordcloud2Output 打印。 我嘗試隔離我的 highchartOutput，沒問題它在同一個 tabPanel 中沒有 wordcloud2Output 的情況下運行。

例子：

  ui <- fluidPage(
    
    navbarPage(
      "Try put Wordcloud2 and Highcharter in the same page",
      id = "main_navbar",
      
      tabPanel(
        "MytabPanel",
        fluidRow(
          width = 12,
          column(width = 7, wordcloud2Output("tdb1_wordcloud", height = 620)),
          column(width = 5, highchartOutput("tdb1_myplot", height = 620)))) ))
  
#_______________________
  
  server <- function(input, output, session) {
    
    output$tdb1_wordcloud <- renderWordcloud2({
      wordcloud2(data.table(word = c("email","phone","visit"), freq = c(10,15,4))) })
    
    output$tdb1_myplot <- renderHighchart({
      x <- c(rnorm(10000), rnorm(1000, 4, 0.5))
      hchart(x, name = "data") }) }

#_______________________
  
  runApp(list(ui = ui, server = server),launch.browser = TRUE)

使用 wordcloud2Output + highchartOutput 進行閃亮渲染

如果我把我的“wordcloud2Output”放在評論中，我的 highchartOutput 就會運行

只有 highchartOutput 的閃亮渲染

謝謝你的幫助！

Answer 1

使用uiOutput()似乎可以解決這個問題。

library(shiny)
library(highcharter)
library(wordcloud2)
library(data.table)

ui <- fluidPage(
    
    navbarPage(
        "Try put Wordcloud2 and Highcharter in the same page",
        id = "main_navbar",
        
        tabPanel(
            "MytabPanel",
            fluidRow(
                width = 12,
                column(width = 7, wordcloud2Output("tdb1_wordcloud", height = 620)),
                column(width = 5, uiOutput('hc')))) ))
    

#_______________________

server <- function(input, output, session) {
    
    output$hc <- renderUI({highchartOutput("tdb1_myplot", height = 600)})
    
    output$tdb1_wordcloud <- renderWordcloud2({
        wordcloud2(data.table(word = c("email","phone","visit"), freq = c(10,15,4))) })
    
    output$tdb1_myplot <- renderHighchart({
        x <- c(rnorm(10000), rnorm(1000, 4, 0.5))
        hchart(x, name = "data") })
}

#_______________________

runApp(list(ui = ui, server = server),launch.browser = TRUE)