閃亮和rCharts：我沒有得到它的工作

Question

我不知道它的工作。沒有顯示，但沒有顯示錯誤。這是從我的UI，讓所有的庫被加載：

tags$head(
         tags$link(rel = "stylesheet", type = "text/css", href = "style_mozilla_win.css"), 
         tags$link(rel = "stylesheet", type = "text/css", href="nv.d3.css") 
        ), 

         HTML(' 
          <script src="http://d3js.org/d3.v3.min.js" charset="utf-8"></script> 
          '), 

....

mainPanel( 
               showOutput("SectorCharting", "nvd3") 
              ) 

從我server.R

output$SectorCharting<-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) 
    }) 

Answer 1

這這裏也是同樣的問題昨天here和許多之前，使用使用renderChart2而不是renderChart。

rm(list = ls()) 
library(shiny) 
library(rCharts) 

ui =pageWithSidebar(
    headerPanel("Test"), 

    sidebarPanel(), 
    mainPanel(
    showOutput("SectorCharting", "nvd3") 
) 
) 


server = function(input, output) { 

    output$SectorCharting <-renderChart2({ 
    hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male") 
    n1 <- nPlot(Freq ~ Hair, group = "Eye", data = hair_eye_male, 
       type = 'multiBarChart') 
    return(n1) 
    }) 
} 


runApp(list(ui = ui, server = server))