Shinyの関数を呼び出してリターンリストを保存

Question

私はserver.Rで関数を呼び出して、返されたリストをグローバル環境に保存しようとしています。この関数はアクションボタンによって呼び出されます。次に、そのリストを使用して、リストに基づいて別のボタンによってトリガーされる別の関数を実行し、グラフをプロットします。

shinyServer(function(input, output) { 

    v <- reactiveValues() 

    observeEvent(input$button1, { 
    v$button1 = TRUE 
    }) 

    savedlist <<- reactive({ 
    if (v$button1){ 
     return(savedlist <- f1(10) 
    } 
    }) 

output$plot <- renderPlot({ 
    f2(savedlist) 
}) 

}) 

f1 <- function(x){ 
    savedlist = list(xdata = 1:x, ydata = x:1) 
    names(savedlist) = c("xdata", "ydata") 
    return(savedlist) 
} 

と

f2 <- function(x){ 
    attach(savedlist) 
    plot(xdata, ydata) 
} 

が、私はそれを動作させることはできません...

ありがとう：ここでは、簡単なサンプルコードです。

Answer 1

観察 `試してみてください。この

library(shiny) 
ui=shinyUI(fluidPage(

    actionButton("button1","button1"), 
    plotOutput("plot") 

)) 
f1 <- function(x){ 
    savedlist = list(xdata = 1:x, ydata = x:1) 
    names(savedlist) = c("xdata", "ydata") 
    return(savedlist) 
} 
f2 <- function(x){ # change a bit to use x as argument 
    plot(x$xdata, x$ydata) 
} 

server=shinyServer(function(input, output) { 

    v <- reactiveValues(button1=FALSE) 

    observeEvent(input$button1, { 
    v$button1 = TRUE 
    }) 

    observe({ 
    if (v$button1){ 
     savedlist <<- f1(10) 
    } 
    }) 

     output$plot <- renderPlot({ 
     if(v$button1){# plot only after button because before list dont exist 
     f2(savedlist) 
     } 
     }) 

}) 

shinyApp(ui,server)