R 无功输入工作，但出现错误？

我得到了一个奇怪的错误，一个选择输入的反应性影响了另一个的选项。（它按照我的预期工作，但我遇到了一个错误）

代码如下：

library(shiny)
library(R.utils)

# Populate test data:
if (!exists('.foo')) .foo <- new.env()
if (!exists('.ohlc')) .ohlc <- new.env()

.foo$abc <- NA
.foo$xyz <- NA
.ohlc$abc.daily <- NA
.ohlc$abc.hourly <- NA
.ohlc$xyz.hourly <- NA
.ohlc$xyz.minute <- NA

runApp(list(
  ui = bootstrapPage(
    uiOutput("foo"),
    uiOutput("ohlc")
  ),
  server = function(input, output) {

    output$foo <- renderUI({selectInput("foo", "Which foo?", ls(.foo), selected = ls(.foo)[1])})

    availPeriods <- reactive({
      inputFoo <- input$foo
      sapply(X = ls(.ohlc)[grepl(inputFoo, ls(.ohlc))], FUN = function(x) {return(capitalize(strsplit(x, "[.]")[[1]][2]))}, USE.NAMES = F)
    })

    output$ohlc <- renderUI({
      selectInput("ohlc", "OHLC Interval", availPeriods())})
  }
))

我不明白的是：为什么我会犯这个错误

应用程序的运行和行为与它应该的一样；“OHLC间隔”正确返回给定输入可用的时段：abc（每日和每小时）、xyz（每小时和每分钟）

---

我在哪里搞砸了？谢谢你的帮助

在设置

inputFoo

：

if（is.null（inputFoo））return（）

有效后添加此选项！但是，我能麻烦问一下为什么吗

inputFoo

从不为null，那么为什么需要检查？第一次运行null时。打印语句：

print（inputFoo）

将显示这一点。我认为情况并非如此，因为我在

selectInput

中选择了

selected=ls（.foo）[1]

，但我想情况并非如此。谢谢你的帮助！

Error in grepl(inputFoo, ls(.ohlc)) : invalid 'pattern' argument