rshiny，如何分别显示每个图？

Question

我的目标是分别显示每个情节。研究的参与者应使用输入滑块对每个图进行估算。当前代码不允许这样做。它一次显示所有情节。用户单击“下一个任务”等后，第二个图应出现。有3个以上的地块-只是一个示例数。

我想将结果保存在文件中，例如：
人1：情节1 90情节2 50情节3 60
人2：情节1 40情节2 60情节3 40
第三个人...
第4个人...

该文件不应出现在用户界面上。

我也想按随机顺序显示每个参与者的图。我可以以某种方式使用sample()吗？还能看到每个人当时的命令吗？

library(shiny)

ui <- fluidPage(titlePanel("study1"),
sidebarPanel(
sliderInput(inputId = "fit", label = "fit", min = 0, max = 100, value
= 0),
actionButton("goButton", "next task")),
mainPanel(plotOutput(outputId = "plot1"),
          plotOutput(outputId = "plot2"),
          plotOutput(outputId = "plot3")
))

server <- function(input, output) {
output$plot1 <- renderPlot({plot(3,3), xlab = "x", ylab = "y")})
output$plot2 <- renderPlot({plot(4,4), xlab = "x", ylab = "y")})
output$plot3 <- renderPlot({plot(8,8), xlab = "x", ylab = "y")})
}

shinyApp(ui = ui, server = server)