DTedit и Shiny: как я могу показать конкретные данные в таблице на основе выбранной строки другой таблицы? - PullRequest
Новая
       35

DTedit и Shiny: как я могу показать конкретные данные в таблице на основе выбранной строки другой таблицы?

1 голос
/ 22 октября 2019

это мой первый вопрос и впервые здесь, надеюсь, что структура вопроса правильная. Я являюсь пользователем блестящего начального уровня и использую пакет DTedit для создания таблиц данных для своего приложения. Я должен создать две таблицы данных. В первом просто показаны некоторые данные (без проблем в этом), а во втором показаны значения дополнительных столбцов в зависимости от строки, выбранной в первой таблице. В двух словах, вторая таблица используется для предоставления дополнительной информации о строке, выбранной в первой таблице.

Здесь у вас есть код для этого с пакетом DT. 

                  Project     Counts     Inventory
                  A          25         100
                  B          20         120
                  C          10          50
                  ",header=TRUE,stringsAsFactors = FALSE)


df2 <- read.table(text="
                  ProjectID     Sub_Project     Counts       Date
                  A            1              5      2017-05-01
                  A            2             10      2017-05-01
                  A            2             10      2017-06-01
                  B            1             40      2017-05-01
                  B            1             20      2017-06-01
                  B            1             20      2017-07-01
                  B            2             40      2017-05-01
                  C            1             15      2017-05-01
                  C            1             35      2017-06-01
                  ",header=TRUE,stringsAsFactors = FALSE)



ui <- dashboardPage(
  dashboardHeader(title = 'Dashboard'),
  dashboardSidebar(),

  dashboardBody(

    tabsetPanel(
      tabPanel('Sequencing', 
               fluidRow(
                 column(12, 
                        dataTableOutput('project_table'), 
                        dataTableOutput('subproject_table'))
               )
      )
    )
  )
)



server <- function(input, output) { 

  output$project_table <- renderDataTable(df1, options = list(pageLength = 10))


  output$subproject_table <- renderDataTable({
    s = input$project_table_rows_selected
    project <- unique(df1[s,c("Project")])
    df2[df2$ProjectID %in% project, ]})
}

shinyApp(ui, server)

В основномМне нужно сделать то же самое, но с пакетом DTedit. Я заблокирован с моим проектом, я надеюсь, что кто-то может мне помочь. Большое спасибо

...