如何解决Kibana和Vega具有嵌套聚合
鉴于 Kibana 中的以下 Vega JSON,我如何使其动态化,例如当用户在 search 中搜索内容时框,它适用于下面的 query 和 pos过滤器标签。因此,假设用户在 search 框中输入“ face *”,然后我希望下面标记为 的值可以动态更改
library(shiny)
library(shinyjs)
library(glue)
library(tibble)
select_formUI <- function(id){
ns <- NS(id)
tagList(selectInput(ns('slt_type_db'),'select letter',choices = letters[1:5]))
}
select_form <- function(input,output,session){
#pass_back_test <- reactive({
tibble(
placehold = "FILL VALUE"
#,input_slt_type_db = input$slt_type_db
)
})
return(list(pass_back_test = reactive({pass_back_test()})))
}
inner_moduleUI <- function(id){
ns <- NS(id)
tagList(uiOutput(ns("outpt_forms_ui")))
}
inner_module <- function(input,session){
rctval_ui <- reactiveValues(all_ui=NULL)
gen_forms <- reactiveValues()
all_gen_forms_rctv <- reactive({
dplyr::bind_rows(lapply(reactiveValuesToList(gen_forms),function(current_module_output) {
current_module_output$pass_back_test()
}))
})
observeEvent(input$btn_start,{
for(i in 1:3){
x_id = glue("mod_{i}")
rctval_ui$all_ui[[x_id]] <- select_formUI(x_id)
gen_forms[[x_id]] <- callModule(select_form,x_id)
}
})
output$outpt_forms_ui <- renderUI({
ns <- session$ns
tagList(
actionButton(ns('btn_start'),label = 'start'),verbatimTextOutput(ns('outpt_test')),hr(),uiOutput(ns('uis'))
)
})
output$uis <- renderUI({
ns <- session$ns
tags$div(id = environment(ns)[['namespace']],tagList(rctval_ui$all_ui))
})
output$outpt_test <- renderPrint({all_gen_forms_rctv()})
}
ui <- fluidPage(
useShinyjs(),uiOutput('main_ui')
)
server <- function(input,session) {
output$main_ui <- renderUI({inner_moduleUI('inner_ns')})
callModule(inner_module,'inner_ns')
}
shinyApp(ui = ui,server = server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。