Как выровнять checkBoxGroupInput и рендеринга текста в выходных данных?

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)

---

Результат: