R Shiny：observeEventのループを書く方法

Question

私は以下のコードを持っています。 lapplyのようなループやベクトル化されたステートメントで書く方法はありますか？私の実際のコードでは、もっとブラシがあるので、これはかなり役に立ちます。ありがとう。

この行は無視してください。ちょっとだけテキストを追加するだけです。

observeEvent(input$brush_1,{ 
    Res=brushedPoints(D(),input$brush_1,allRows = TRUE) 
    vals$keeprows = Res$selected_ 
    }) 

observeEvent(input$brush_2,{ 
    Res=brushedPoints(D(),input$brush_2,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_3,{ 
    Res=brushedPoints(D(),input$brush_3,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_4,{ 
    Res=brushedPoints(D(),input$brush_4,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_5,{ 
    Res=brushedPoints(D(),input$brush_5,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_6,{ 
    Res=brushedPoints(D(),input$brush_6,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_7,{ 
    Res=brushedPoints(D(),input$brush_7,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_8,{ 
    Res=brushedPoints(D(),input$brush_8,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_9,{ 
    Res=brushedPoints(D(),input$brush_9,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_10,{ 
    Res=brushedPoints(D(),input$brush_10,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_11,{ 
    Res=brushedPoints(D(),input$brush_11,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

observeEvent(input$brush_12,{ 
    Res=brushedPoints(D(),input$brush_12,allRows = TRUE) 
    vals$keeprows = Res$selected_ 

}) 

Answer 1

observeEventlapplyに素晴らしい作品：

library("shiny") 
ui <- fluidPage(
    fluidRow(
    column(
     width = 6, 
     lapply(
     X = 1:6, 
     FUN = function(i) { 
      sliderInput(inputId = paste0("d", i), label = i, min = 0, max = 10, value = i) 
     } 
    ) 
    ), 
    column(
     width = 6, 
     verbatimTextOutput(outputId = "test") 
    ) 
) 
) 
server <- function(input, output){ 

    vals <- reactiveValues() 

    lapply(
    X = 1:6, 
    FUN = function(i){ 
     observeEvent(input[[paste0("d", i)]], { 
     vals[[paste0("slider", i)]] <- input[[paste0("d", i)]] 
     }) 
    } 
) 

    output$test <- renderPrint({ 
    reactiveValuesToList(vals) 
    }) 
} 
shinyApp(ui = ui, server = server) 

EDIT：光沢のある以前のバージョンのために、（assignを追加）サーバーでこれを使用します。

lapply(
    X = 1:6, 
    FUN = function(i){ 
    assign(
     paste0("obs", i), 
     observeEvent(input[[paste0("d", i)]], { 
     vals[[paste0("slider", i)]] <- input[[paste0("d", i)]] 
     }) 
    ) 
    } 
)