如何将checkBoxGroupInput和rendertext输出对齐？

这是我第一次发帖寻求帮助，所以我希望我所做的一切都是照本宣科。几周来，我一直在寻找一个小问题的解决方案，我的闪亮应用程序出现了这个小问题

基本上，我有一个闪亮的应用程序，让用户选择他想做的分析。CheckBoxGroupInput中有三个选项……当我至少选中其中两个选项时，它们会显示在我的输出中，但缩进会让我非常不舒服。如何对齐它们

library(shiny)


ui <- fluidPage(

  pageWithSidebar(

    headerPanel("Analysis") ,
    sidebarPanel (  titlePanel(title = " Options "),   
                    checkboxGroupInput("Analysis", label = h3("Analysis"), 
                                       choices = list("HM", "Palyno", "Pesticides"),
                                       selected = NULL)),
    mainPanel(("Analysis"),


              verbatimTextOutput("MyAnalysis")   ) ))

server <- function(input, output) {

  output$MyAnalysis <- renderText(paste(" You have chosen : ", input$Analysis,"\n"))
    }
shinyApp(ui, server)

---

下面是一个使用

renderUI

的解决方案：

library(shiny)

ui <- fluidPage(pageWithSidebar(
  headerPanel("Analysis") ,
  sidebarPanel (
    titlePanel(title = " Options "),
    checkboxGroupInput(
      "Analysis",
      label = h3("Analysis"),
      choices = list("HM", "Palyno", "Pesticides"),
      selected = NULL
    )
  ),
  mainPanel(("Analysis"),
            uiOutput("MyAnalysis"))
))

server <- function(input, output) {
  output$MyAnalysis <- renderUI(HTML(paste0("You have chosen: ", input$Analysis, br())))
}

shinyApp(ui, server)

库（闪亮）
ui下面是一个使用
renderUI
的解决方案：

library(shiny)

ui <- fluidPage(pageWithSidebar(
  headerPanel("Analysis") ,
  sidebarPanel (
    titlePanel(title = " Options "),
    checkboxGroupInput(
      "Analysis",
      label = h3("Analysis"),
      choices = list("HM", "Palyno", "Pesticides"),
      selected = NULL
    )
  ),
  mainPanel(("Analysis"),
            uiOutput("MyAnalysis"))
))

server <- function(input, output) {
  output$MyAnalysis <- renderUI(HTML(paste0("You have chosen: ", input$Analysis, br())))
}

shinyApp(ui, server)

库（闪亮）
非常感谢你，我很高兴！我知道这会很简单，但我对R是新手，我把所有输入和输出函数之间的差异搞混了……无论如何，再次感谢你！不客气！如果答案有帮助，请接受。干杯，非常感谢你，我很高兴！我知道这会很简单，但我对R是新手，我把所有输入和输出函数之间的差异搞混了……无论如何，再次感谢你！不客气！如果答案有帮助，请接受。干杯