在1個閃亮的應用程序中使用2個HTML小部件

Question

這個問題已經在這里提出（ 在1個R-Shiny應用程序中使用2個htmlwidgets ）。 我面臨着同樣的問題，找不到解決方案，因此將其發布為帶有可復制示例的新問題。

我已經使用d3創建了兩個htmlwidget。 我試圖在同一個閃亮的應用程序中同時使用它們，但一次只能使用一個。 請參見下面的可復制示例：

#library(devtools)
#install_github('radhikesh/d3Histogram')
#install_github('radhikesh/d3WordCloudWidget')

library(shiny)
library(d3Histogram)
library(d3WordCloudWidget)


ui <- shinyUI(fluidPage(

fluidRow(
column(width = 6, d3HistogramOutput("d3Hist"))),
fluidRow(
column(2, d3WordCloudWidgetOutput(
  "d3Cloud", width = "80%", height = 600
)))
))


server <- shinyServer(function(input, output) {

output$d3Hist <- renderD3Histogram({ 

dataset <- data.frame(lpu = c('Apple','Banana','Orange'), amount = 
c(20,10,15))
d3Histogram(dataset = dataset)

})

output$d3Cloud <- renderd3WordCloudWidget({

dm1 <-data.frame(Var1 = c('Apple','Banana','Orange'), Freq = c(20,10,15))    
dm1$Var1 <- as.character(dm1$Var1)
d3WordCloudWidget(dm1$Var1, dm1$Freq)

})
})

# Run the application 
shinyApp(ui = ui, server = server)

在測試我的可復制示例時，請在ui部分d3HistogramOutput或d3WordCloudWidgetOutput中注釋任何輸出，您可以看到只有一個小部件可以同時工作。

任何幫助將不勝感激！

謝謝！

Answer 1

我在R Shin的Google組上發布了這個問題。 並找到了對我有用的解決方案 。