Matrix becomes uneditable with non-extendable cols #31
Description
The appExtendNoNames example works perfectly.
However, if I change extend = TRUE to extend = FALSE on line 16, any cells to the right of a cell I edit become uneditable.
Video demonstration:
https://user-images.githubusercontent.com/8095080/188219333-f275ab0a-dd8f-49a9-a2a9-7ef1e234f529.mov
Full code:
library(shiny)
library(shinyMatrix)
m <- diag(3)
# colnames(m) <- 1:3
# rownames(m) <- letters[1:3]
ui <- shiny::tagList(
shiny::fluidPage(
shiny::titlePanel("Demonstration Matrix Input Field"),
matrixInput(
inputId = "matrix",
value = m,
class = "numeric",
cols = list(
names = FALSE,
extend = FALSE
),
rows = list(
names = FALSE,
extend = TRUE,
delta = 1
)
)
)
)
server <- function(input, output, session) {
output$table <- renderTable(input$matrix, rownames = TRUE)
}
shinyApp(ui = ui, server = server)