Я могу создать матрицу, используя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)

Работаю ОК -> Я могу показать / распечатать имена столбцов, используя следующий код .............................НЕ ХОРОШО -> НевозможноUNHIDE ИМЯ СТРОКИ(Ы)

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;}"
       )
      )

Как это может быть возможно?