Question

我正在开发一个应用程序，用户将在该应用程序上载数据，然后从该数据中选择要绘制在图形上的变量。我希望变量的类型显示在选择器中。

我正在使用示例here和here (see "email contacts")。闪亮的selectize示例通过ajax获取数据，但我不知道如何使它适应用户上传的数据，该数据作为reactiveValues对象存储在我的应用程序中。我还尝试过使用selectize网站示例中的语法。我的所有努力都导致选择器出现，并且看不到任何类型的数据。

  # the code that creates the data I'm hoping to pass to the selector 
  stored_data$variable_selector <- data_frame(
    varlist = names(stored_data$data), 
    type = map_chr(names(stored_data$data), ~class(stored_data$data[[.x]]))
    ) %>% 
    purrr::transpose()

  # the code which currently renders an empty selector
  selectizeInput('variable', 'select a variable:', choices = '', options = list(
    valueField = 'varlist',
    labelField = 'type',
    searchField = 'varlist',
    options = stored_data$variable_types,
    create = FALSE,
    render = I("{
      option: function(item, escape) {
      return '<div>' +
           ' <em>' + escape(item.varlist) + '</em>' +
           ' (by ' + escape(item.type) + ')' +
    '</div>';
  }
}")))

在将其交给selectize的呈现器之前，我应该将variable_types制成json对象吗？还有其他我想念的东西吗？

Answer 1

好像我没有正确测试它：下面的代码呈现一个selectizeInput，其类型信息在下拉列表中可见。

library(shiny)
library(tidyverse)

iris_type <- data_frame(
  varlist = names(iris), 
  type = map_chr(names(iris), ~class(iris[[.x]]))
) %>% 
  purrr::transpose()

ui <- basicPage(


  # the code which currently renders an empty selector

    tagList(

    selectizeInput('variable', 'select a variable:', choices = '',
      options = list(
        valueField = 'varlist',
        labelField = 'varlist',
        searchField = c('varlist', 'type'),
        options = iris_type,
        create = FALSE,
        render = I(
          "{
            option: function(item, escape) {
            return '<div>' +
               ' <em>' + escape(item.varlist) + '</em>' +
               ' (type: ' + escape(item.type) + ')' +
               '</div>';
               }
             }"
            )
          )
        ),
    textOutput("out")
    )


)

server <- function(input, output, session) {
  output$out <- renderText(input$variable)
}

shinyApp(ui, server)

Shiny + selectize.js：从本地源渲染自定义项目

1 个答案: