rCharts: участок работает нормально в RStudio, но пустой в блестящем приложении

Question

Используя приведенный ниже код

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 

Я получил этот участок в RStudio

Я хочу, чтобы создать блестящее приложение для этот сюжет. Я создал приложение, используя код ниже

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) 

Однако блестящее приложение не отобразило сюжет. Он оказался пустым. Мы ценим любые предложения.

Answer 1

При использовании пакета rCharts с r shiny вам необходимо указать, какую библиотеку javascript вы используете.

С помощью строки n1$addParams(dom = 'hair_eye_male') на номер renderChart() и указывая, какую библиотеку вы используете в showOutput(), код будет работать.

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)