2

闪亮的应用程序具有以下元素：

  • 一个numericInput值在 0 到 3 之间的字段
  • 一个uiOutput包含三个隐藏textInput字段
  • 一actionButton

我想要实现的是单击按钮后show的隐藏字段。textInput显示的字段数取决于在下面numericInput的全功能代码中选择的数字是否成功；但是，有一个问题我似乎无法找到解决方案。例如，如果我选择3并单击按钮，则会出现 3 个隐藏textInput字段（耶！），但如果我立即选择一个低于的数字3并单击按钮，不需要的字段仍然存在。我怎样才能做到这一点？谢谢

library(shiny)
library(shinyjs)

ui <- fluidPage(

  useShinyjs(),

  numericInput(inputId = "num", label = "How many inputs do you want to show?", value = 1, min = 1, max = 3),

  uiOutput(outputId = "out"),

  actionButton(inputId = "go", label = "Click me!")
)

server <- function(input, output){

  output$out <- renderUI({
    numinputs <- lapply(1:3, function(i){
      textInput(inputId = paste0("txt", i), label = paste0("Text input ", i))
    })
    shinyjs::hidden(numinputs)
  })

  observeEvent(eventExpr = input$go, handlerExpr = {
    for(i in seq(input$num)){
      shinyjs::show(id = paste0("txt", i))
    }
  })
}

shinyApp(ui = ui, server = server)
4

2 回答 2

1

我已经修改了您的代码以完全按照您的要求进行操作。

library(shiny)
library(shinyjs)

ui <- fluidPage(

  useShinyjs(),

  numericInput(inputId = "num", label = "How many inputs do you want to show?", value = 1, min = 1, max = 3),

  uiOutput(outputId = "out"),

  actionButton(inputId = "go", label = "Click me!")
)

server <- function(input, output){
  nout <- 0

  output$out <- renderUI({
    numinputs <- lapply(1:3, function(i){
      textInput(inputId = paste0("txt", i), label = paste0("Text input ", i))
    })
    shinyjs::hidden(numinputs)
  })

  observeEvent(eventExpr = input$go, handlerExpr = {


      if(nout > input$num){ # If the current no. of inputs is less than previous hide the inputs
        for(i in nout:(nout-as.numeric(input$num))){
          shinyjs::hide(id = paste0("txt", i)) 
        } 

      }else{
        for(i in seq(input$num)){
        shinyjs::show(id = paste0("txt", i)) 
      }

    }

    nout <<- input$num
  })
}

shinyApp(ui = ui, server = server)

希望能帮助到你！

于 2016-11-18T08:42:44.870 回答
1

此代码类似于 @SBista 的但没有nout变量。

library(shiny)
library(shinyjs)

ui <- fluidPage(
    
    useShinyjs(),
    
    numericInput(inputId = "num", label = "How many inputs do you want to show?", value = 1, min = 1, max = 3),
    
    uiOutput(outputId = "out"),
    
    actionButton(inputId = "go", label = "Click me!")
)

server <- function(input, output){
    output$out <- renderUI({
        numinputs <- lapply(1:3, function(i){
            textInput(inputId = paste0("txt", i), label = paste0("Text input ", i))
        })
        shinyjs::hidden(numinputs)
    })
    
    observeEvent(eventExpr = input$go, handlerExpr = {
        n <- seq(length.out = as.numeric(input$num))
        lapply(seq(3), function(i) {
            if(i %in% n) {
                shinyjs::show(id = paste0("txt", i))
            } else{
                shinyjs::hide(id = paste0("txt", i))
            }
        })
    })
}

shinyApp(ui = ui, server = server)

#edit - 没有 shinyjs/动态创建

# if you comment the lines marked with # no-button
# the app will change the number of textInputs as soon as you change the numericInput
library(shiny)

ui <- fluidPage(
    numericInput(inputId = "num", label = "How many inputs do you want to show?", value = 1, min = 1, max = 3),
    uiOutput(outputId = "out"),
    actionButton(inputId = "go", label = "Click me!") # no-button
)

server <- function(input, output){
    output$out <- renderUI({
        input$go # no-button
        isolate( # no-button
            numinputs <- lapply(seq(length.out = req(input$num)), function(i){
                textInput(inputId = paste0("txt", i), label = paste0("Text input ", i))
            })
        ) # no-button
    })
}

shinyApp(ui = ui, server = server)
于 2016-11-18T12:55:15.380 回答