R 具有特定in的div的CSS代码无效

我有以下闪亮的应用程序：

library(shiny)

ui <- fluidPage(

  includeCSS("C:/Users/Marc/Dropbox/PROJECTEN/Lopend/css_test/www/styles.css"),

  tags$div(id="myfirstdiv", "Hallo"),
  tags$h1("Hallo")


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

shinyApp(ui = ui, server= server)

这就是当我运行应用程序时，H1的css代码正在工作（文本变为绿色）。但是，id为=“myfirstdiv”的div的css代码不起作用

---

你对这里出了什么问题有什么想法吗？

css对我很有用，顶部的哈罗是蓝色的。也许你忘了：

border-style: solid;

---

旁注，我认为更好的做法是按如下方式包含样式表：

标记$link（rel=“stylesheet”，type=“text/css”，href=“styles.css”）

，这也是它的解释方式。这样，如果另一个用户运行您的代码，他就不会出错，因为他的路径可能不同。

border-style: solid;