如何创建 x 个垂直排列的 textInput？
How can I create x number of textInput which are arranged vertically?
我有一个名为 dat 的数据集，我可以找到 x<-ncol(dat) 的列数。
我想创建 x 个垂直显示的文本输入。
我该怎么做？
这是一个使用 lapply 和 iris 数据集的简单示例 -
library(shiny)
dat <- iris
x<-names(dat)
ui <- fluidPage({
uiOutput('textInput')
})
server <- function(input, output) {
output$textInput <- renderUI({
lapply(x, function(name) textInput(name, name))
})
}
shinyApp(ui, server)
我有一个名为 dat 的数据集，我可以找到 x<-ncol(dat) 的列数。
我想创建 x 个垂直显示的文本输入。
我该怎么做？
这是一个使用 lapply 和 iris 数据集的简单示例 -
library(shiny)
dat <- iris
x<-names(dat)
ui <- fluidPage({
uiOutput('textInput')
})
server <- function(input, output) {
output$textInput <- renderUI({
lapply(x, function(name) textInput(name, name))
})
}
shinyApp(ui, server)