Cette question est déjà posée ici, (Using 2 htmlwidgets in 1 R-Shiny Application). Je suis confronté au même problème et je n'ai pas trouvé de solution pour cela, donc je l'ai affiché comme une nouvelle question avec un exemple reproductible.Utilisation de 2 widgets HTML dans une application brillante
J'ai créé deux htmlwidgets en utilisant d3. J'essaie d'utiliser les deux dans la même application brillante, mais je ne peux en utiliser qu'une seule à la fois. S'il vous plaît voir l'exemple reproductible ci-dessous:
#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)
Lors du test de mon exemple reproductible, s'il vous plaît commenter une de la sortie dans la section ui d3HistogramOutput ou d3WordCloudWidgetOutput et vous pouvez voir que seul un du widget travaille dans un même temps.
Toute aide serait très apprécié!
Merci!