5

我正在尝试使用 R 中的 ShinySky 包在 Shiny 中填充 Typeahead 框。

我正在尝试扩展示例，其中用于预填充 Typeahead 的数据被硬编码到textInput.typeahead函数中：

textInput.typeahead(
        id="thti"
        ,placeholder="type 'name' or '2'"
        ,local=data.frame(name=c("name1","name2"),info=c("info1","info2")) #<- LOOK!
        ,valueKey = "name"
        ,tokens=c(1,2)
        ,template = HTML("<p class='repo-language'>{{info}}</p> <p class='repo-name'>{{name}}</p> <p class='repo-description'>You need to learn more CSS to customize this further</p>")
      )

在函数中间定义一个本地数据框不是我想做的，就像这里的例子所做的那样： 

,local=data.frame(name=c("name1","name2"),info=c("info1","info2"))

我想提供一个参数，local它是一个反应性对象，它是在 Shiny 的其他地方创建的。

到目前为止，我一直无法这样做。

这是我尝试使用反应性动态填充 Lookhead 选项的策略：

1）让用户使用滑块对数据框进行子集化。
2) 设置 Lookahead 以读取子集数据帧，使用类似,local=subset(DF)
3) 希望 Lookahead 按预期工作。

看起来很简单？这是一个屏幕截图，您可以清楚地看到 Lookhead 没有出现在用户输入 111 的下方。下面是我的代码。任何帮助将不胜感激。

在此处输入图像描述

library(shiny)
library(shinysky)
options(shiny.trace = F)  # change to T for trace

DF <- data.frame(ID=c("111", "222", "333", "444"), info=c("info1", "info2", "info3", "info4"))

runApp(list(ui = pageWithSidebar(
  headerPanel("This is a test"),
  sidebarPanel(
    helpText("I couldn't live without StackOverflow"),

    sliderInput("range",
                label = "Pick how many rows you want in your dataframe:",
                min = 2, max = 4, value = 2, step=1),

    helpText("After subsetting the dataframe using the controls above, can we make the Lookahead work?"),

    textInput.typeahead(
      id="thti"
      ,placeholder="type ID and info"
      ,local=subset(DF)
      ,valueKey = "ID"
      ,tokens=c(1,2)
      ,template = HTML("<p class='repo-language'>{{info}}</p> <p class='repo-name'>{{ID}}</p> <p class='repo-description'></p>"))

  ),
  mainPanel(textOutput("text1"),
            htmlOutput("text"),
            tableOutput('table')
  )
),
server = function(input, output, session) {

  subsetDF <- reactive({ DF <- DF[1:input$range, ]
                         DF
                         })

  output$text <- renderUI({
    str <- paste("This is how many rows you've chosen for your dataframe:",
                 input$range)
    HTML(paste(str, sep = '<br/>'))
                          })

  output$table <- renderTable(subsetDF())

}
)
)
4

0 回答 0