However, I can't seem grab the input values necessary to update the table. An simple example (adapted from the link I included) is below. Any help greatly appreciated.
shiny::runApp(list(
ui = basicPage(
tableOutput("My_table")
),
server = function(input, output, session) {
My_table = matrix(
1:3,
nrow=3,
ncol=1)
output$My_table <- renderTable({
input1 <- paste0("<input id='a", 1:nrow(My_table), "' class='shiny-bound-input' type='number' style='width: 50px;'>")
input2 <- paste0("<input id='b", 1:nrow(My_table), "' class='shiny-bound-input' type='number' style='width: 50px;'>")
cbind(input1, My_table, input2)
}, sanitize.text.function = function(x) x)
}
))