在 2 r 闪亮的应用程序中使用 1 个 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 shiny的谷歌群组上发布了这个问题。并得到了 对我有用的解决方案。