Блестящий разделить на два data.frames и настроить outputTable - PullRequest
Новая
       18

Блестящий разделить на два data.frames и настроить outputTable

0 голосов
/ 29 мая 2019

Недавно я тестирую R и Shiny. Я получил DT :: dataTableOutput ("table_unique_jur"), но я не знаю, как мне с этим справиться. Я хочу использовать outTable в качестве двух data.frames; io_df и ios_df с количеством столбцов в каждой. io_df имеет 12 столбцов, а ios_df 41. 12 и 41 взяты из table_unique_jur. Кроме того, я хотел бы, чтобы новые (io_df и ios_df) TableOutputs отображались по вертикали со своими значениями.

Большое спасибо.

Пожалуйста, найдите ниже то, что я пробовал: 

ui <- fluidPage(

  selectInput("jur",
              "Jurisdiction:",
              c("All",
                unique(as.character(fatf_df$Jurisdiction)))),

  # Create a new row for the table.
  DT::dataTableOutput("table_unique_jur"),

  datatable(
    ios_df,
        caption = "",
        rownames = FALSE,
        colnames = c("Jurisdiction", 'IO1', "IO2", "IO3", "IO4", "IO5", "IO6", "IO7", "IO8", "IO9", "IO10", "IO11"),
        extensions = 'Buttons', options = list(
        dom = 'Bfrtip',
        buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
    )
  ),

  datatable(
   rs_df,
    caption = "",
   rownames = FALSE, 
   colnames = c("Jurisdiction", 'R.1', 'R.2', 'R.3', 'R.4', 'R.5', 'R.6', 'R.7', 'R.8', 'R.9', 'R.10', 'R.11', 'R.12', 'R.13', 'R.14', 'R.15', 'R.16', 'R.17', 'R.18', 'R.19', 'R.20', 'R.21', 'R.22', 'R.23', 'R.24', 'R.25', 'R.26', 'R.27', 'R.28', 'R.29', 'R.30', 'R.31', 'R.32', 'R.33', 'R.34', 'R.35', 'R.36', 'R.37', 'R.38', 'R.39', 'R.40'),
    extensions = 'Buttons', 'FixedColumns', options = list(
      autoWidth = TRUE,
      dom = 'Bfrtip',
      scrollX = TRUE,
      fixedColumns = TRUE,
      buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
    )
  ) 
)

server <- function(input, output) {

    )
    output$table_unique_jur <- DT::renderDataTable(DT::datatable({
      data <- fatf_df
      if (input$jur != "All") {
        data <- data[data$Jurisdiction == input$jur,]
      }
      data
    })) 
}
```
...