2017-05-08 69 views
2

此處已經詢問此問題(Using 2 htmlwidgets in 1 R-Shiny Application)。我面臨着同樣的問題,無法找到解決方案,因此將其作爲具有可重現示例的新問題發佈。在1 r閃亮應用程序中使用2個HTML小部件

我已經使用d3創建了兩個htmlwidgets。我試圖在同一個閃亮的應用程序中使用它們,但我一次只能使用一個。請參考下面的可重複的例子:

#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輸出中的任何一個,你可以看到,只有小部件的一個工作在同一時間。

任何幫助將非常感謝!

謝謝!

回答

0

我在R閃亮的google羣組發佈了這個問題。並得到了爲我工作的 solution

相關問題