我可以使用创建一个矩阵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)
工作正常 --> 我可以使用以下代码取消隐藏/打印列名称.................................NOT OK--> 无法UNHIDE the ROW NAME(s)
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;}"
)
)
这怎么可能呢?