Я использую renderUI для создания динамических текстовых полей и раскрывающегося списка в моем пользовательском интерфейсе.Я хочу зафиксировать событие изменения в текстовом поле / раскрывающемся меню и изменить фрейм данных
Ниже приведен код для создания пользовательского интерфейса
server <- function(input, output, session){
output$fileContent <- renderTable({
inFile <- input$csvFile
csvContent <- read.csv(inFile$datapath)
output$summary <- renderPrint({str(csvContent)})
allColumns <- names(csvContent)
types <- sapply(csvContent, class)
w <- ""
for (i in 1:length(allColumns)){
w <- paste(w, selectInput(paste("inp",allColumns[i], sep = "_"), allColumns[i],choices = c("factor","integer","logical","character", "Date"), selected = types[i], width = 200))
}
output$columns <- renderUI({ HTML(w) })
return (head(csvContent))
})
Требуемый вывод -
Приведенный выше код визуализирует текстовые поля по желанию в пользовательском интерфейсе, но не фиксирует событие при изменении значения в текстовом поле.Поскольку элементы управления являются динамическими, я не могу кодировать событие статического захвата, так как имя элемента управления будет генерироваться динамически