Отображение динамических падений вниз в блестящем

Question

Мне не знакомо работать с Shiny, но я хочу создать приложение, в котором я прошу пользователя ввести номер в текстовое поле, а затем соответственно отобразить выпадающие списки. Элементы во всех раскрывающихся списках будут одинаковыми. Например, я читаю значение из файла CSV

Name Designation Gender 
    Tom  CEO   M 
    JIM  CSO   M 
    RACHEL SECRETARY F 
    ARYA SECRETARY M 

Если я вхожу 12 в моем текстовом поле, я должен получить 12 падение падения при каждом падении вниз, имеющие 3-х элементов (отчетливые обозначений), то есть генеральный директор, CSO и СЕКРЕТАРЬ. Я хочу использовать эти 12 вариантов дальше, поэтому я хотел бы их хранить, если это возможно. Если это можно сделать блестящим, отправьте код server.R и ui.R. Благодарю.

Answer 1

Я основывался на нижеследующем коде answer. Я думаю, что он делает то, что вы просите. Просто сохраните его как app.R в RStudio, и вы можете запустить его с панели инструментов вверху. Хорошее место для начала, когда узнаете о динамических элементах интерфейса в Shiny, найдено here.

library(shiny) 

server <- function(input, output) { 
    output$input_ui <- renderUI({ 
    num <- as.integer(input$num) 

    lapply(1:num, function(i) { 
     selectInput(paste0("n_input_", i), label = paste0("n_input", i), 
        choices = list("CEO" = 1, "CSO" = 2, "SECRETARY" = 3), 
        selected = 1) 
    }) 
    }) 

    output$table <- renderTable({ 
    num <- as.integer(input$num) 

    data.frame(lapply(1:num, function(i) { 
     input[[paste0("n_input_", i)]] 
    })) 
    }) 

} 

ui <- fluidPage(
    sidebarLayout(
    sidebarPanel(
     numericInput("num", label = h3("Numeric input"), value = 1) 
    ), 
    mainPanel(
     uiOutput("input_ui"), 
     tableOutput("table") 
    ) 
) 
) 

shinyApp(ui = ui, server = server) 

Как показано на скриншоте ниже выхода в настоящее время численная с:

"CEO" = 1 
"CSO" = 2 
"SECRETARY" = 3