SelectizeGroupUI - 部署 AWS 时无法设置筛选器宽度、INLINE = TRUE 错误

在我闪亮的应用程序中，我使用 selectizeGroupUI 作为我的依赖选择输入的一部分。我正在努力手动将过滤器的宽度设置为比标题更宽。请参阅下面的屏幕截图。强烈赞赏建议。

UI 渲染的屏幕截图，过滤器宽度默认为标题长度 https://i.stack.imgur.com/WZlqX.png

第二个问题是，当部署在 AWS ubuntu 上时，INLINE = TRUE 并不适用于所有 selecinput。请参阅下面的屏幕截图。 Ubuntu正在运行shinyWidgets 0.6.3，shiny 1.7.1。

已部署应用程序的屏幕截图，其中一个过滤器在 INLINE = TRUE 时错误地显示为水平 https://i.stack.imgur.com/X95FM.png

OYCF_PDE_Entities <- dbGetQuery(con,
                     "SELECT * FROM oycf_pde_entities")
geocodes_penn_counties <- dbGetQuery(con,
                                     "SELECT * FROM geocodes_penn_counties")

#Define the UI
ui <- fluidPage(
  tags$head(
    tags$style(HTML("hr {border-top: 1px solid #1D5C91;}"))
  ),
  theme = bs_theme(version = 5, bootswatch = "materia"),
  titlePanel(img(src = "PDE.jpg",height=150, width= 150)),
  
  sidebarLayout(
    sidebarPanel(
      h4(strong("Query the PDE/OCYF Database")),
      h5(strong("Purpose")),
      p("This application is designed for performing custom queries to a database containing information about private and non-public 
      entities who are serving school-aged children and youth in the Commonwealth of Pennsylvania. Sites in this database include private or non-public licensed schools, as well 
        as non-public entities such as residential and juvenile justice institutions."),
      p(strong("How to Search")),
      tags$ol(
        tags$li("The database provides information at the site-level, as well as by several higher-order aggregates, including region, county, city, type of service, PDE Educational Entity and DHS Entity."),
        tags$li("Use the drop-down filters within this menu to perform a custom query that automatically displays in the table. Selecting one or more values fromm the filters will automatically remove irrelevant values from the rest of the filters. You can also use the filters in any order. They will still show only relevant options."),
        tags$li("The search function at the top right of the table accepts words and/or whole numbers. The search function looks across all columns for all entities in the database and displays every entity with a column containing the number and/or word that was typed."),
        tags$li("Use the first drop down box to select multiple fields from the database. Your choices will be displayed automatically in the table. The application defaults to showing several key fields. Use backspace")
        ),
      selectInput(
        "vars",
        strong("Select Fields"),
        names(OYCF_PDE_Entities),
        selected = c("DHS_ENTITY_NAME","CITY","COUNTY","REGION","ADMINISTRATIVE_UNIT_AUN"),
        selectize = TRUE,
        multiple=TRUE),
      selectizeGroupUI( 
        id="my_filters",
        inline= TRUE,
        params = list(
          REGION = list(inputId="REGION",title="Select Region",placeholder='select'), 
          COUNTY = list(inputId="COUNTY",title="Select County",placeholder='select'),
          CITY = list(inputId="CITY",title="Select City",placeholder='select'),
          DHS_TYPE_OF_SERVICE = list(inputId="DHS_TYPE_OF_SERVICE",title="Select Type of Service",placeholder='select'),
          PDE_EDUCATIONAL_ENTITY = list(inputId="PDE_EDUCATIONAL_ENTITY",title="Select PDE Educational Entity",placeholder='select'),
          DHS_ENTITY_NAME = list(inputId="DHS_ENTITY_NAME",title="Select DHS Entity",placeholder='select')
          ),
        btn_label="Reset All Filters"
        ),
      p("For technical support, please contact [email protected] /cdn-cgi/l/email-protection",
        style = "font-family:'arial';font-size:11pt;color:#1D5C91",align = "center")
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Database",
                 br(),
                 DT::dataTableOutput("MainTable")),
        tabPanel("Map of Entities in Database",
                 br(),
                 plotOutput("entitymap", height="900px",width="1000px")
                 )

    ))
  )
)

server <- function(input,output,session){
#create reactive environment for database
  rv <- reactiveValues(alldata=data.frame(OYCF_PDE_Entities))
  
#set up the table's server module
DHSTable <- callModule(
  module = selectizeGroupServer,
  id = "my_filters",
  data = rv$alldata,
  vars = c("REGION","COUNTY","CITY","DHS_TYPE_OF_SERVICE","PDE_EDUCATIONAL_ENTITY","DHS_ENTITY_NAME")
)

#output the filtered data to data table UI
  output$MainTable <- DT::renderDataTable({
    DHSTable() %>% select(all_of(input$vars))
  })

#output map of entities across the state of PA
  
output$entitymap <- renderPlot({
  ggplot() +
    geom_polygon(
      mapping = aes(lon,lat,group = group),
      data = geocodes_penn_counties,
      fill="#1D5C91",colour = "deepskyblue3") +
    geom_point(data = DHSTable(), mapping = aes(x = lon, y = lat),colour ="cyan1",size = 1.5) +
    theme_bw() + 
    theme(panel.border = element_blank(), 
          panel.grid.major = element_blank(),
          panel.grid.minor = element_blank(),
          axis.line = element_blank(),
          axis.ticks = element_blank(),
          axis.title = element_blank(),
          axis.text = element_blank()) +
    coord_quickmap()
  })
  
#Query Results - When filters are changed, update the count from the table even if looking at the map (table not loaded)
  
#reactive expression
  records_reactive <- eventReactive(
    input$MainTable_rows_all,{
      NROW(input$MainTable_rows_all)
    }
  )

  #output record count
  output$recordsreturned <- renderText(paste("Number of Records:",records_reactive()))
  
#summary, not filter dependent
output$descriptive1 <- renderText(paste("Total Number of Records in Database:",nrow(OYCF_PDE_Entities)))

}

#Run the app
shinyApp(ui = ui,server = server)

我想我知道问题是什么。从shinyWidgets版本0.6.3开始，您需要重复inline论据中的callModule-call.

需要进行此更改的原因是这个问题 https://github.com/dreamRs/shinyWidgets/issues/419.

请参阅我在以下示例的服务器部分中的评论：

library(shiny)
library(shinyWidgets)

data("mpg", package = "ggplot2")

ui <- fluidPage(
  titlePanel("Hello Shiny!"),
  sidebarLayout(
    sidebarPanel(
      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:")
        ),
        inline = FALSE
      )
    ),
    mainPanel(
      DT::dataTableOutput(outputId = "table")
    )
  )
)

server <- function(input, output) {
  res_mod <- callModule(
    module = selectizeGroupServer,
    id = "my-filters",
    data = mpg,
    vars = c("manufacturer", "model", "trans", "class"),
    inline = FALSE # switch to TRUE to see the issue
  )
  output$table <- DT::renderDataTable(res_mod())
}