Как применить границу к коробке () в R блестящий? - PullRequest
0 голосов
/ 18 марта 2020

Я пытаюсь назначить border для поля () в блестящем приложении. У меня есть две коробки в блестящем приложении. Я хочу назначить границу только для 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)

Любая помощь, будет заметна. Спасибо.

1 Ответ

0 голосов
/ 18 марта 2020
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)
...