Question

我得到一个奇怪的错误，其中一个选择输入的反应性会影响另一个选项。（它按照我的意图工作，但我收到了错误）

以下是代码：

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())})
  }
))

以下是错误消息：

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

我不明白的是：为什么我会收到此错误？

应用程序运行并且表现得像它应该的那样; ＆＃34; OHLC Interval＆＃34;正确返回给定输入可用的句点：abc（每日和每小时），xyz（每小时和分钟）

我在哪里陷入困境？谢谢你的帮助！

无功输入工作，但收到错误？

0 个答案: