ShinyAppの複数のオブジェクトのリストからプロットをレンダリングする方法

Question

1-dataframe 2-ggplotのリストを返す関数Identify_IP（）があります。私はShinyAppでrenderTableとrenderPlotをする必要があります。このshinyAppコードは、データフレームのみをレンダリングします。しかし、私はプロットを描画することはできません。どんな助け？次serverを使用して

library(shiny) 

source('InflectionP2.R', local = TRUE) 

runApp(
    list(
    ui = fluidPage(
     titlePanel("Upload your file"), 
     sidebarLayout(
     sidebarPanel(
      fileInput('file1', 'Choose xls file', 
        accept = c(".XLS")), 

      actionButton("btn", "Update Table"), 
      actionButton("btn1", "Display Plot"), 

      downloadButton('downloadData', 'Download') 
     ), 

     mainPanel(
     tableOutput('what'), 
     plotOutput('pl')) 
    ) 
    ) 
    , 

    server = function(input, output, session){ 

     dataOP <- reactive({ 
    inFile <- input$file1 
    if (is.null(input$file1)) 
     return(NULL) 

    Identify_IP(read.table(inFile$datapath)) 
    list(tble = df1, txt = inflection_points, plt = p) 
    }) 


    observeEvent(input$btn, output$what <- renderTable({dataOP()$tble})) 

    observeEvent(input$btn1, output$pl <- renderPlot({ 
    plot(dataOP()$plt) 
    }))    
    } 
    )) 

Answer 1

は私のために働いていた：私はあなたの関数Identify_IPをコメントアウトし、任意の値で結果を置き換え

server = function(input, output, session){ 

    dataOP <- reactive({ 
     inFile <- input$file1 
     if(is.null(input$file1)){ 
      return(NULL) 
     } 
     #Identify_IP(read.table(inFile$datapath)) 
     list(tble = c(1:20), txt = c(1:10), plt = rnorm(100)) 
    }) 

    observeEvent(input$btn,{ 
     output$what <- renderTable({ 
      dataOP()$tble 
     }) 
    }) 

    observeEvent(input$btn1,{ 
     output$pl <- renderPlot({ 
      plot(dataOP()$plt) 
     }) 
    })    
} 

注意を。 それでも問題が解決しない場合は、おそらくこの関数または関数が返す値に関連している可能性があります。