无法获取褪色的浮动 ui 对话框；不显示在闪亮

Question

我正在尝试修复 R Shiny 地图上的宽度。另外，我没有成功地使面板褪色。我要复制的宽度和褪色面板在这里 link:

https://shiny.rstudio.com/gallery/superzip-example.html

我正在使用他们的样式 css 文件，这个 link: https://github.com/rstudio/shiny-examples/blob/master/063-superzip-example/styles.css

我已经写好了我的代码：

library(shiny)
library(tidyverse)
library(leaflet.extras)
library(leaflet)
library(RColorBrewer)
library(scales)
library(lattice)
library(dplyr)


fake_data <- read.csv("https://raw.githubusercontent.com/gabrielburcea/Whosebug_fake_data/master/gather_divided.csv")


# Define UI for application that draws a histogram
ui <- fluidPage(
    
    navbarPage("Covid-19 Symptom Tracker", id = "nav",
                 
                 tabPanel("Interactive map", 
                          div(class = "outer",
                              tags$head(
                                  tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
                                  
                             ),
                              
                              leafletOutput("map", width = "100%", height = "96vh"), #height = "99vh"
                             
                              #Floating panel 
                              absolutePanel(id = "controls", class = "panel panel-default", fixed = TRUE,
                                            draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto",
                                            width = 330, height = "auto",
                                            
                                            h4("SARS-Covid-19 symptoms"),
                                            
                                            selectInput("symptom", "Select symptom", c("Chills",
                                                                                       "Cough", "Diarrhoea",
                                                                                       "Fatigue",
                                                                                       "Headache",
                                                                                       "Loss of smell and taste",
                                                                                       "Muscle ache",
                                                                                       "Nasal congestion",
                                                                                       "Nausea and vomiting",
                                                                                       "Shortness of breath",
                                                                                       "Sore throat",
                                                                                       "Sputum",
                                                                                       "Temperature")
                                            ), 
                                            tags$div(id="cite",
                                                     'Data provided by Your.md'
                                            )
                              )))
    )

)

                                            
                                            
server <- function(input, output) {
    
    filtered_data <- reactive({
        fake_data %>% 
            dplyr::filter(Symptom %in% input$symptom)
    })
    
    output$map <- renderLeaflet({
        
        leaflet() %>%
            addTiles(urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
                     attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>') %>%
            addMarkers(data = filtered_data(), clusterOptions = markerClusterOptions())
        
    })
    
}



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

我正在使用的 css 风格（与他们的一样）在这里： https://github.com/gabrielburcea/Whosebug_fake_data/blob/master/style.css

我的面板是这个，与我提供的 link 中的面板明显不同：

Answer 1

我得到以下输出：

当我运行你的代码。我喜欢逐渐消失的浮动对话框。标题上有一些白色 space，当我完全缩小时还有一些。我觉得不错。另外，我通过记事本保存了 CSS 文件。如果您通过 RStudio 保存它，我认为这不会有任何不同。

无法获取褪色的浮动 ui 对话框；不显示在闪亮

Cannot get the faded floating ui dialog box; does not show in Shiny

html

css

panel

shiny