Css 如何将行名称显示/设置为matrixInput（shinyIncubator）

我可以使用

matrixInput

函数创建矩阵：

df <- data.frame(matrix(c("0","0"), 1, 2))
colnames(df) <- c("Input1", "Input2")
rownames(df) <- c("rown1")
matrixInput(inputId = 'data', label = 'Add/Remove Rows', data = df)

---

这怎么可能呢？

matrixInput

当前丢弃

行名

数据，因此无法在生成的html中隐藏/取消隐藏。谢谢，您建议改用什么？我需要一个具有可见行和列名的输入矩阵。或者有其他选择吗？

tags$head(
 tags$style(type = "text/css"
                   , "table.data { width: 300px; }"
                   , ".well {width: 80%; background-color: NULL; border: 0px solid rgb(255, 255, 255); box-shadow: 0px 0px 0px rgb(255, 255, 255) inset;}"
                   , ".tableinput .hide {display: table-header-group; color: black; align-items: center; text-align: center; align-self: center;}"
                   , ".tableinput-container {width: 100%; text-align: center;}"
                   , ".tableinput-buttons {margin: 10px;}"
                   , ".data {background-color: rgb(255,255,255);}"
                   , ".table th, .table td {text-align: center;}"
       )
      )