如何将边框应用于 R 闪亮中的框（）？答案

【问题标题】：How to apply border to a box() in R shiny?如何将边框应用于 R 闪亮中的框（）？
【发布时间】：2020-06-29 13:04:38
【问题描述】：

我正在尝试将 border 分配给 shinyApp 中的 box()。我在 shinyApp 中有两个盒子。我只想为 1st box() 分配边框。怎么做？这是我的代码：

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)

任何帮助，将不胜感激。谢谢。

【问题讨论】：

标签： css r shiny shinydashboard

【解决方案1】：

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)

【讨论】：

但这里有一个问题，第一个框中的“边框”不是文本，它是一个具有一定价值的变量。那么边框不适用于“边框”变量。