rshiny, как я могу показать каждый сюжет отдельно?

Question

Моя цель - показать каждый сюжет отдельно.Участники исследования должны дать оценку каждому участку с помощью ползунка ввода.Текущий код не позволяет этого.Он показывает все графики одновременно.Второй график должен появиться после того, как пользователь нажал «следующее задание» и так далее.Есть более 3 участков - это просто примерный номер.

Я хочу сохранить результаты в файле, например, так:
Персона 1: plot1 90 plot2 50 plot3 60
Person 2: plot1 40 plot2 60 plot3 40
Person 3 ...
Person 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)