DT table에서 선택한 행 가져오기

outputID_rows_selected

예제는 DT table에서 선택한 행만 추출하여 다시 출력하는 앱이다. 아래 예제는 윗쪽 카드에 있는 테이블에서 선택한 1, 3번 행을 아래쪽 카드에 출력한다.

# global.R 
library(DT)
library(shiny)
selected_row <- NULL
selectedrow_txt <- NULL

#ui.R 
ui <- page_fillable(
  card(
    card_header("Table"),
    DT::dataTableOutput("table_mtcars")
  ),
  
  card(
    card_header(textOutput("selectedrow_txt")),
    DT::dataTableOutput("tableselected")
  )
)

# Server.R
server <- shinyServer(function(input, output,session) {
  
  table <- mtcars[, 1:3]  
  
  output$table_mtcars <- DT::renderDataTable({
    table
  }, server = TRUE, selection = 'multiple')  
  
  output$selectedrow_txt <- renderText({
    paste("Selected: ", paste(input$table_mtcars_rows_selected, collapse = ", "))
  })
  
  output$tableselected <- DT::renderDataTable({
    selected_row <- input$table_mtcars_rows_selected
    table_selected <- table[selected_row,]
  })
})

shinyApp(ui = ui, server = server)

선택된 행은 outputID_rows_selected 변수에 저장된다. outputID 지정에 유의하자.

※ card() hearder, footer 문자 지정 시 server function에서 문장을 만들어 전달하자. ui에서 함수를 사용해서 만들 경우 제약이 많다.

_EOF_