R 闪亮-用户界面内文本和符号的中心对齐

我有一个闪亮的应用程序，其中包含一个表单。为了突出显示必填字段，我在字段标签上放置了一个红色星号。但是，有些标签需要在两行上，当我将星号放在第一行上时，这条线不再正确居中，正如您可以从这个reprex中看到的：

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)

库（闪亮）
星号我会尝试在底部添加一个空格：
HTML（“位置”）
。