光沢のあるデータフレームから特定の列に関連するセルのみを選択する方法

Question

光沢のある対話型ダッシュボードを構築しています。私は、特定の時間に最初の列に関連する単一の特定のセルだけを選択したいと思います。

私がhttps://rstudio.github.io/DT/shiny.htmlに行ったとき、必要な情報が見つかりませんでした。これを行う方法はありますか？

Answer 1

これはそれを行う方法を示して光沢のあるアプリです。この解決策の欠点server.R

library(shiny) 
    library(shinydashboard) 


    # Define server logic required to draw a histogram 
    shinyServer(function(input, output) { 
      output$mtcarsTable <- renderDataTable({ 
        a <- 200 
        DT::datatable(datasets::mtcars, 
            selection = list(target = "cell", 
                selected = matrix(c(as.numeric(input$rowNumber), 
                     as.numeric(input$colNumber)), 
                    nrow = 1)) 
           ) 
    }) 

    }) 

ui.R

library(shiny) 
    library(shinydashboard) 

    library(DT) 
    header <- dashboardHeader() 
    sidebar <- dashboardSidebar(
      selectInput("rowNumber", "Select row number", choices = 1:NROW(mtcars)), 
      selectInput("colNumber", "Select column number", choices = 1:NCOL(mtcars)) 
    ) 
    body <- dashboardBody(
      DT::dataTableOutput("mtcarsTable") 
    ) 

    shinyUI(fluidPage(

     # Application title 
     titlePanel("Data Table"), 
     dashboardPage(header, sidebar, body) 


    )) 

は、そのユーザーの場合選択したセルをクリックすると選択が削除されます。 可能な代替手段は、セルの背景色を変更することですが、これはrowcallbackにjavascriptを必要とします。代替ソリューションを見たいと思ったら教えてください。