测试 R Shiny 中一组编号输入对象中的任何输入是否为空

Question

假设我为多图导出创建了 10 个selectInput 下拉菜单，这些selectInputs 被称为“xaxis_1”、“xaxis_2”、......、“xaxis_10”

对于单个 1 我可以写： if(!is.null(input$xaxis_1)) { .... do stuff } 在用户没有输入任何名称时停止它运行导出，然后按提交，以避免崩溃。

更一般的，你可以检查一下：

if(!is.null(input[[paste('xaxis', i, sep = '_')]])) { ...}

如何优雅地编写它，以便 1 行代码检查 1:10 输入 [[...]] 中的任何一个是否为空，即 NULL？

输入的 nr 取决于用户想要在每个文件中导出多少个绘图，所以一切都是用lapply(1:input$nrofplots, function(i) { .... } renderUI 结构构建的，我的 if 语句需要具有与 1:n 相同的灵活性

在如下图所示的情况下，按Initiate export 应该会给出sweetalert（已涵盖），表示至少缺少 1 个值

Answer 1

这是我在 UI 端用来验证用户输入的 sn-p。

library(shiny)
library(shinyjs)

ui <- fluidPage(
 useShinyjs(),  # Set up shinyjs
 numericInput('axis1','Val 1',1),
 numericInput('axis2','Val 2',1),
 numericInput('axis3','Val 3',1),
 actionButton('Go','Plot')
)

server <- function(input, output, session) {
  #Try 1, space, AAA and check what shiny will return
  observe(print(input$axis1))
  observe({
    All_Inputs <- vapply(paste0('axis',1:3),
                                function(x){isTruthy(input[[x]])},
                                logical(1))
    All_InputsCP <- all(All_Inputs)
    shinyjs::toggleState(id="Go", condition = All_InputsCP) #This is to make the button Go able or disable according to condition All_InputsCP #
  })
}

shinyApp(ui, server)

希望对你有帮助。