0
我试图实现一个闪亮的应用程序,其中我有一些tabset面板中的数据表,并且这些数据表具有相同的行和列。我想实现的是,当用户对列进行排序时,如果他更改了制表符,数据将按照与第一个相同的列号进行排序。我有这个应用程序,我会尝试实现它:保持数据表格之间Shiny的选项卡
library(DT)
library(shiny)
app <- shinyApp(
ui = fluidPage(
tags$head(
# hides the default search functionality
tags$style(
#HTML(".dataTables_filter, .dataTables_info { display: none; }"),
HTML(".shiny-input-container { display: none; }")
)
),
fluidRow(
column(10,
""
),
column(2,
# adding new page filter
uiOutput("pageFilter")
),
column(12,
tabsetPanel(id = "tab",
tabPanel('pressure',
DT::dataTableOutput('table1')
),
tabPanel('mtcars',
DT::dataTableOutput('table2')
)
)
)
)
),
server = function(input, output) {
global <- reactiveValues()
observe({
global$val <- input$table1_state$start/input$table1_state$length + 1
})
observe({
global$val <- input$table2_state$start/input$table2_state$length + 1
})
output$pageFilter <- renderUI({
numericInput("page", "Page", max(global$val,1), min = 1)
})
output$table1 <- DT::renderDataTable({
iris
}, options = list(pageLength = 15, stateSave = TRUE))
output$table2 = DT::renderDataTable({
mtcars
}, options = list(pageLength = 15, stateSave = TRUE))
# using new page filter
observeEvent({input$page; input$tab}, {
dataTableProxy("table1") %>% selectPage(global$val)
dataTableProxy("table2") %>% selectPage(global$val)
})
}
)
runApp(app, launch.browser = TRUE)
任何想法?
你的意思是说,如果你在第一个选项卡按列1类型升序排序,...第二个选项卡中的表格也将按列1类型升序排序? – BigDataScientist
是的,确切地说。谢谢。 – JFernandez