R闪亮的RenderDT格式表输出中的特定单元格

Question

我正在尝试格式化 R 闪亮仪表板数据表中的特定单元格（使用 renderDT）。

在 UI 中，我使用以下代码行：

DTOutput('dt_vols')

我也在 UI 中包含这一行，因为我不想显示列名（不确定这是否与问题相关）

tags$head(tags$style(type = "text/css", "#dt_vols th {display:none;}")),

在服务器代码中，我首先创建了以下反应式 2x2 矩阵（称为 dt_vols） - 我在示例中简化了矩阵

dt_vols <- reactive({

    mtx_vols <- matrix(1:4, nrow = 2, ncol = 2)

    return(mtx_vols)

  })

然后我将DT表渲染如下：

  output$dt_vols = renderDT(

    dt_vols(), options = list(pageLength = 4, dom = 't', autoWidth = FALSE), rownames= FALSE,   
    formatStyle(dt_vols(), columns = 1, border = '1px solid #ddd')

  )

在我添加 formatstyle 行之前它一直有效。我不知道如何让这条线正确并让它指向一个特定的单元格（例如 row1、column2）。 column 参数似乎有问题。如果我运行以下命令，则会出现以下错误：

Warning: Error in : $ operator is invalid for atomic vectors

Answer 1

formatStyle 需要一个从 datatable() 创建的表对象作为输入 - 您传递了一个矩阵，这会导致错误。

请检查以下内容：

library(shiny)
library(DT)

ui <- fluidPage(DTOutput('dt_vols'),
                tags$head(tags$style(type = "text/css", "#dt_vols th {display:none;}")))

server <- function(input, output, session) {
  dt_vols <- reactive({
    mtx_vols <- matrix(1:4, nrow = 2, ncol = 2)

    return(mtx_vols)

  })

  output$dt_vols = renderDT({
    myTable <- datatable(dt_vols(),
                         options = list(pageLength = 4, dom = 't', autoWidth = FALSE),
                         rownames = FALSE
    )

    formatStyle(myTable, columns = 1, border = '10px solid #ddd')
  })
}

shinyApp(ui, server)