Блог

У меня есть блестящее приложение, которое содержит форму. Чтобы выделить обязательные поля, я поместил красную звездочку на метку полей. Однако некоторые метки должны быть на двух строках, и когда я помещаю звездочку в первую строку, такая линия больше не центрируется правильно, как вы можете видеть из этого репрекса:

 library(shiny)

asterisk <- function(asterisk) {
  
  tagList(
    
    asterisk,
    
    span("*",
         style = "font-size: 20px;
                  color: red;")
    
  )
  
}

ui <- fluidPage(

tags$br(),
tags$br(),

  column(width = 3,
         align = "center",
         
         h5(asterisk("Restaurant"),
            tags$br(),
            "location"),
  )
  
)

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

shinyApp(ui, server)
 

Желаемое поведение-вот это. Есть ли способ обернуть обе строки звездочкой? Добавление звездочки во втором слове не работает, потому что звездочка должна быть большой, а затем между двумя строками слишком много места.

Спасибо за вашу помощь!