在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组上发布了这个问题。 并找到了对我有用的解决方案 。