R 有没有一种方法可以将标签放在输入框旁边？

我想有输入框标签旁边的输入本身，但只有某些输入

我在这里找到了一个解决方案，它可以更改所有标签，但有没有办法只针对选定的输入？我的意思是，一些数字输入可能是通常的方式，其他的将被指定在方框旁边。在这个答案中，有人建议“如果你不想弄乱shiny的默认CSS，你可以将标签留空，然后在旁边创建一个标签，而不是将现有的标签强制放在一边”，但我不知道如何将其解释为代码，因为我尝试了我认为它所说的内容，但是另一个标签文本就在label=text应该位于的位置上方，而不是它旁边

我猜它可能是一个内联的CSS或者其他什么，但是除了最基本的CSS我什么都不知道

所以在这个MRE中，我怎么能在输入框的左边有“盒子的左边”的标签，而“盒子的上面”的标签保持在它原来的位置

谢谢你能给我的帮助

library(shiny)

# Define UI for application
ui <- fluidPage(

    # Application title
    titlePanel("Label Next To Box"),

    # Sidebar with a input 
    sidebarLayout(
        sidebarPanel(
            numericInput(inputId = "left_label",label = "Left of box",value = 123),
            numericInput(inputId = "top_label",label = "On top of box",value=321)
        ),

        # Main
        mainPanel(
        )
    )
)

# Define server logic
server <- function(input, output) {


}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
#为应用程序定义用户界面
ui使用
class
属性，如下所示

library(shiny)

ui <- fluidPage(

  fluidRow(
    ###  next two tags$head is for sliderInput
    tags$head(tags$style(HTML("div#inlin label { width: 15%; }
                               div#inlin input { display: inline-block; width: 85%;}"))),
    tags$head(
      tags$style(type="text/css", "#inlin label{ display: table-cell; text-align: left; vertical-align: middle; }
                                   #inlin .form-group { display: table-row;}")
    ),

    ### next two lines for class - use class attribute (.inline instead of #inline)
    tags$head(
      tags$style(type="text/css", ".inline label{ display: table-cell; text-align: center; vertical-align: middle; }
                                   .inline .form-group { display: table-row;}")
    ),

    tags$div(id="inline1", class="inline", textInput(inputId = "txtInp", label = "Label Left 1:")),
    numericInput(inputId = "numInp1", label = "Label on top1:", value = 0), 
    tags$div(id="inline2", class="inline", numericInput(inputId = "numInp2", label = "Label Left2:", value = 0)),
    textInput(inputId = "txtInp2", label = "Label on top2:"), 

    tags$div(id = "inlin", style="width:55vw;",
             sliderInput(inputId = "slid", label = "label left 3 ", min = 0, value = 50, step = 1, max = 100, width=200)),
    sliderInput(inputId = "slid2", label = "label on top (default)", min = 0, value = 50, step = 1, max = 100)
  )
)

server <- function(input, output){}

shinyApp(ui, server)

库（闪亮）
ui真棒，非常感谢。