модуль панели поиска в R блестящий, как вернуть результаты

Я пытаюсь создать блестящий модуль, который будет изменять данные на основе настраиваемой панели поиска.

Мне удалось создать приложение, которое будет печатать результаты поиска на панели поиска в консоли R-Studio, но как мне вернуть результаты из модуля и обновить хранилище реактивных данных?

Вот пример приложения, я хочу вернуть то, что напечатано, чтобы обновить реактивное:


myModuleUI <- function(id) {
  ns <- NS(id)
  tagList(
    fluidRow(
      column(width=2, 
          textInput(ns("searchField"), "Search"),
          dataTableOutput("table")
      )
    )
  )
}
myModule <- function(input, output, session, df) {
  observeEvent(input$searchField, {
    if(!is.null(input$searchField)){
      print(
        df %>% filter_at(vars(names(df)), any_vars(str_detect(as.character(.), input$searchField)))
      )
    }
  })
}
# Use the module in an application
ui <- fluidPage(
  myModuleUI("myModule1")
)
server <- function(input, output, session) {
  out <- reactiveValues(
    df = data.frame(
      company = c('a', 'b', 'c', 'd'),
      bond = c(0.2, 1, 0.3, 0),
      equity = c(0.7, 0, 0.5, 1),
      cash = c(0.1, 0, 0.2, 0),
      stringsAsFactors = FALSE
    )
  )
  callModule(myModule, "myModule1", df = out$df)
  output$table <- DT::renderDataTable({
    m <- datatable(
      out$df,
      options = list(dom = 'tip')
    )
  })
}
shinyApp(ui, server)

Всего 1 ответ

Автоматический диспенсер мыльной пены от xiaomi.


Вы также должны использовать ns() для datatableOutput outputId, чтобы вы могли использовать его в модуле:

myModuleUI <- function(id) {
  ns <- NS(id)
  tagList(
    fluidRow(
      column(width=2, 
             textInput(ns("searchField"), "Search"),
             dataTableOutput(ns("table"))
      )
    )
  )
}
myModule <- function(input, output, session, df) {
  output$table <- DT::renderDataTable({
    datatable(
      if(!is.null(input$searchField)){
          df %>% filter_at(vars(names(df)), any_vars(str_detect(as.character(.), input$searchField)))
      } else df,
      options = list(dom = 'tip')
    )
  })
}
# Use the module in an application
ui <- fluidPage(
  myModuleUI("myModule1")
)
server <- function(input, output, session) {
  out <- reactiveValues(
    df = data.frame(
      company = c('a', 'b', 'c', 'd'),
      bond = c(0.2, 1, 0.3, 0),
      equity = c(0.7, 0, 0.5, 1),
      cash = c(0.1, 0, 0.2, 0),
      stringsAsFactors = FALSE
    )
  )
  callModule(myModule, "myModule1", df = out$df)
}
shinyApp(ui, server)

Есть идеи?

10000