如何在闪亮的情况下对齐checkBoxGroupInput和rendertext输出？

Question

这是我第一次发帖寻求帮助，所以我希望本书能做的一切。数周以来，我一直在寻找解决小问题的解决方案。

基本上，我有一个闪亮的应用程序，让用户选择他想进行的分析。 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)

因此，我希望我的选择在输出中对齐，但它们并没有...

Analysis
 You have chosen :  HM 
  You have chosen :  Palyno 
  You have chosen :  Pesticides 

Answer 1

这是使用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)

---

结果：