rCharts: Grundstück arbeitet in RStudio gut, aber leer in glänzenden app

Question

dem Code unter

library(shiny) 
library(rCharts)  
hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male") 
n1 <- nPlot(Freq ~ Hair, 
      group = "Eye", 
      data = hair_eye_male, 
      type = 'multiBarChart') 
n1 

Ich habe dieses Grundstück in RStudio

ich eine glänzende App erstellen möchten, diese Handlung. Ich erstellte die App mit dem folgenden Code

library(shiny) 
library(rCharts) 
ui <- fluidPage(
    mainPanel(uiOutput("tb"))) 
server <- function(input,output){ 

    output$hair_eye_male <- renderChart({ 

    hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male") 
    n1 <- nPlot(Freq ~ Hair, group = "Eye", data = hair_eye_male, 
       type = 'multiBarChart') 
    return(n1) 
    }) 
    output$tb <- renderUI({ 
    tabsetPanel(tabPanel("First plot", 
         showOutput("hair_eye_male"))) 
    }) 
} 
shinyApp(ui = ui, server = server) 

Allerdings glänzte app nicht die Handlung. Es schien leer zu sein. Irgendwelche Vorschläge würden geschätzt werden.

Answer 1

Wenn Sie das rCharts-Paket mit r shining verwenden, müssen Sie angeben, welche Javascript-Bibliothek Sie verwenden.

Wenn Sie die Zeile n1$addParams(dom = 'hair_eye_male') zu renderChart() hinzufügen und angeben, welche Bibliothek Sie in showOutput() verwenden, funktioniert der Code.

library(shiny) 
library(ggplot2) 
library(rCharts) 

ui <- fluidPage(
    mainPanel(uiOutput("tb"))) 
server <- function(input,output){ 

    output$hair_eye_male <- renderChart({ 

    hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male") 
    n1 <- nPlot(Freq ~ Hair, group = "Eye", data = hair_eye_male, 
       type = 'multiBarChart') 
    n1$addParams(dom = 'hair_eye_male') 
    return(n1) 
    }) 
    output$tb <- renderUI({ 
    tabsetPanel(tabPanel("First plot", 
         showOutput("hair_eye_male", lib ="nvd3"))) 
    }) 
} 
shinyApp(ui = ui, server = server)