Hi Nir,
I just changed my code as per my requirement. A small
library(shiny)
library(purrr)
ui <- fluidPage(actionButton("show", "show"))
shinyApp(
ui,
server = function(input, output) {
col_name <- c("A", "B", "C", "DE")
i <- 1
list_of_rows<- purrr::map(col_name,
~fluidRow(column(width = 4,.,textInput("a","",value = "b"),)))
observeEvent(input$show,
showModal(modalDialog(title = "Edit",
fluidPage(
list_of_rows
)
)
)
)
}
)
It is all working. But if you look carefully, the id = "a" is for all textInputs. Can we not make it dynamic so id is a for A,
b for B,
c for C and
d_e for DE