r - 在 Shiny 模块中使用 shinyWidgets selectizeGroupUI
问题描述
我正在尝试selectizeGroupUI
在闪亮的模块中使用。似乎服务器功能工作正常,因为数据表显示在 UI 中,但selectizeGroupUI
无法访问其中的输入。
你能帮我解决一下吗?
library(shiny)
library(shinyWidgets)
library(dplyr)
library(DT)
library(data.table)
library(highcharter)
library(tidyverse)
library(shiny)
library(shinythemes)
library(shinydashboard)
library(scales)
library(shinyWidgets)
data("mpg", package = "ggplot2")
opt_in_dashboard_UI <- function(id) { fluidPage(
fluidRow(
column(
width = 10, offset = 1,
tags$h3("Filter data with selectize group"),
panel(
selectizeGroupUI(
id = "my-filters",
params = list(
manufacturer = list(inputId = "manufacturer", title = "Manufacturer:"),
model = list(inputId = "model", title = "Model:"),
trans = list(inputId = "trans", title = "Trans:"),
class = list(inputId = "class", title = "Class:")
)
), status = "primary"
),
DT::dataTableOutput(outputId = (NS(id,"table"))
)
)
))
}
#server <- function(input, output, session) {
opt_in_dashboard_Server <- function(id) {
moduleServer(id, function(input, output, session) {
res_mod <- callModule(
module = selectizeGroupServer,
id = "my-filters",
data = mpg,
vars = c("manufacturer", "model", "trans", "class")
)
output$table <- DT::renderDataTable(res_mod())
}
)}
ui <- fluidPage(
opt_in_dashboard_UI("opt_in_dashboard")
)
server <- function(input, output, session) {
opt_in_dashboard_Server("opt_in_dashboard")
}
shinyApp(ui, server)
解决方案
推荐阅读
- php - 使用php在url中获取标签发布
- python - 解析字典列表以提取值时“if”语句的语法
- python-3.x - UnicodeDecodeError:“utf-8”编解码器无法解码位置 23 中的字节 0xea:无效的继续字节
- python - 无法从另一个 python 文件导入类
- excel - 如何在此公式中正确嵌套 IF 语句
- tensorflow - tf.argmax 在张量流中具有相等性并没有给我预期的结果
- r - R中的hms difftime类型问题
- sql - ORA-00923: FROM 关键字在预期的地方找不到如何容易受到 SQL 注入的攻击?
- javascript - 如何更改 multer express 邮件标题?
- excel - 从 excel 365 中的最终计算答案创建 n 个值