Css 如何将边框应用于R中的框（）？

我正在尝试为shinyApp中的一个box（）指定边框。我在shinyApp有两个盒子。 我只想将边框指定给第一个框（）。怎么做？ 这是我的密码：

library(shiny)
library(shinydashboard)

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tags$style(HTML( ".box {border: 5px solid #3DA0D1;}")),
  box("border", 123,background = 'navy'),
  box("line", 123,background = 'navy'))))
server <- function(input,output){

}
shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
ui
库（闪亮）
图书馆（shinydashboard）
但这里有一个问题，第一个框中的“边框”不是文本，它是一个具有某些值的变量。那么边框对“border”变量不起作用。
library(shiny)
library(shinydashboard)

ui <- shinyUI(dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box("border", 123, background = 'navy'),
    box("line", 123, background = 'navy'),
    tags$script(HTML("$('.box').eq(0).css('border', '5px solid #3DA0D1');"))
  )
))
server <- function(input,output){}
shinyApp(ui, server)