데이터 테이블 페이지 매김 이벤트를 관찰하십시오.

Question

사용자가 데이터 세트 페이지 매김의 페이지를 변경할 때마다 입력 값을 변경해야합니다.

나는 observeEvent을 사용해 보았지만 작동하지 않습니다.

UI

fluidRow(
    column(10, 
     "" 
), 
    column(2,    
     textInput("inText", "Input text 2", value = "Default text") 
), 
    column(12, 
     dataTableOutput('table') 
) 
) 

서버

observeEvent(input$table, { 
    updateTextInput(session, "inText", value = paste("New text",0)) 
}) 

당신이 날 도울 수 있기를 바랍니다.

Answer 1

표에 나와있는 표의 ID가 table으로 가정하면 다음을 사용할 수 있습니다. input$table_state$start/input$table_state$length + 1 다음과 같은 완전한 예에서

:

library(DT) 
library(shiny) 
app <- shinyApp(
    ui = fluidPage(
    tags$head(
     # hides the default search functionality 
     tags$style(
     HTML(".dataTables_filter, .dataTables_info { display: none; }") 
    ) 
    ), 
    fluidRow(
     column(10, 
      "" 
    ), 
     column(2,    
      # adding new page filter 
      uiOutput("pageFilter") 
    ), 
     column(12, 
      dataTableOutput('table') 
    ) 
    ) 
), 
    server = function(input, output) { 

    output$pageFilter <- renderUI({ 
     val <- input$table_state$start/input$table_state$length + 1 
     numericInput("page", "Page", val, min = 1) 
    }) 

    output$table <- DT::renderDataTable({ 
     iris 
    }, options = list(pageLength = 5, stateSave = TRUE)) 

    # using new page filter 
    observeEvent(input$page, { 
     dataTableProxy("table") %>% selectPage(input$page) 
    }) 
    } 
) 

runApp(app, launch.browser = TRUE)