javascript - 如何在 Shiny/R 中创建自定义传单弹出样式

Question

手头的任务很简单——我希望能够在 Shiny 应用程序中自定义 Leaflet 弹出窗口的 CSS 样式。我尝试结合 this 中的解决方案和 this示例无效。

使用上述两个链接的解决方案，这里是一些(失败的)示例代码:

library(shiny)
library(leaflet)

shinyApp(
  ui <- fluidPage(

      tags$head(includeCSS(system.file('www', 'style.css', package = 'myPackage'))),

      leafletOutput("map", width = "100%", height = "800")
    ), #END UI


  server <- function(input, output, session) {

    output$map <- renderLeaflet({
      leaflet() %>% 
        addTiles() %>% 
        addCircles(lng = -80, lat = 30, radius = 100, popup = as.character("Test"))
    }) #END RENDERLEAFLET
  }
)

style.css 文件如下所示，保存在我的 Shiny 应用程序目录中的 www 文件夹中:

<style>

.custom-popup .leaflet-popup-content-wrapper {
  background: #DB0925;
  color:#fff;
  font-size:16px;
  line-height:24px;
  }
.custom-popup .leaflet-popup-content-wrapper a {
  color:rgba(255,255,255,0.5);
  }
.custom-popup .leaflet-popup-tip-container {
  width:30px;
  height:15px;
  }
.custom-popup .leaflet-popup-tip {
  border-left:15px solid transparent;
  border-right:15px solid transparent;
  border-top:15px solid #2c3e50;
  }
</style>

<div class='custom-popup' id='map'></div>

我怀疑我的 css 文件的路径有问题。当我按原样运行此代码时，出现以下错误:

Warning in file(con, "r") : file("") only supports open = "w+" and open = "w+b": using the former

任何解决方案如何让它工作？

Answer 1

Icaro Bombonato 引导我找到了解决方案!而不是 tags$head(includeCSS(system.file('www', 'style.css', package = 'myPackage'))),，所需要的只是 includeCSS("style.css") 在用户界面中。 style.css 文件也位于我的主 Shiny 目录中，而不是 www 文件夹中。