输入文件后显示R Shiny Plot

时间:2017-08-22 16:15:49

标签: r shiny rcharts

我想根据用户通过文件输入的数据显示图表(对于Shiny应用程序)。使用当前设置时,会出现一条错误消息,声称未找到数据,因此不会显示该图(来自rCharts包)。

下面的代码:

ui.R

library(rCharts)
library(shinydashboard)
library(shiny)
dashboardPage(
  skin = "black",
  header <- dashboardHeader(
    titleWidth = 475
  ),
  sidebar <- dashboardSidebar(
    sidebarMenu(
    )    
  ),
  body <- dashboardBody(
    tabItems(
      tabItem("setup",
              box(width = 4,title = tags$b('Input Dataset'), solidHeader = T, status = 'primary', collapsible = T,
                  helpText("Default max. file size is 5 MB. Please upload both files for analysis in csv format."),
                  fileInput("file1","Upload the first file"),
                  fileInput("file2","Upload the second file")
              ),                  
              box(height = 500, width = 12,title = tags$b('Visualize Data'), solidHeader = T, status = 'primary',
                  showOutput("myPlot", "Highcharts")                  
              )
      )
    )
  )
)

server.R

library(shiny)
library(rCharts)
# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  observe({
    file1 = input$file1
    file2 = input$file2
    if (is.null(file1) || is.null(file2)) {
      return(NULL)
    }
    data1 = read.csv(file1$datapath)
    data2 = read.csv(file2$datapath)
  })
  output$myPlot<-renderChart2({
    # Prepare data

    data1[,2] <- (data1[,2])/sum(data1[,2])

    # Create chart
    a <- rCharts:::Highcharts$new()
    a$chart(type = "column")
    a$xAxis(categories = rownames(x))
    a$yAxis(title = list(text = "Normalized Intensity"))
    a$data(data1)
    a$set(width = 600, height = 500)
    return(a)
  })
})

1 个答案:

答案 0 :(得分:0)

尝试添加类似的内容。请务必检查nrow并返回并清空Highcharts$new()对象,因为renderChart2期望一个。

library(shiny)
library(rCharts)
# Define server logic required to draw a histogram
shinyServer(function(input, output) {

  data1 <- reactive({read.csv(file1$datapath)})
  data2 <- reactive({read.csv(file2$datapath)})

  output$myPlot<-renderChart2({
    data1 <- data1()
    # Prepare data
    if(nrow(data1==0)){return(Highcharts$new())}
    data1[,2] <- (data1[,2])/sum(data1[,2])

    # Create chart
    a <- rCharts:::Highcharts$new()
    a$chart(type = "column")
    a$xAxis(categories = rownames(x))
    a$yAxis(title = list(text = "Normalized Intensity"))
    a$data(data1)
    a$set(width = 600, height = 500)
    return(a)
  })
})