Как сделать боковую панель и текстовый объект в одной строке

Question

Проблема заключается в том, что я хочу поместить объект helpText, расположенный справа от объекта sidebarPanel. Вот мой код:

ui <- (fluidPage(
# Application title 
fluidRow(
    column(12, 
    sidebarPanel(
    titlePanel("Visualization"), 
    actionButton("goButton", "Go"), 
    actionButton("reset", "Reset"), 
    actionButton("pause", "Pause"), 
    actionButton("resume", "Resume"), 
    textInput("initial", "Initial Value", value = "c(-5, 5, 5)") , 
    textInput("targ", "Target", value = "c(0, 0, 0)"), 
    textInput("func", "Objective Function", value = "x1^2 + exp(x2^2) + 5 + x3^2") 
)), 
    column(12,helpText('XXX')) 
) 
)) 

Однако helpText находится под боковой панелью Panel. Как я могу исправить это и сделать helpText объект в правой пустой области. Спасибо.

Answer 1

Вы можете добавить mainPanel в первую колонку и поставить helpText. В приведенном ниже примере я установил ширину столбца на 8 из макс. 12.

Это mainPanel составляет 8/12 столбца ширины 8 и sidebarPanel имеет ширину 4/12 той же колонны.

Существует еще место для другого столбца с максимальной шириной 4 и я разместил там еще helpText.

Этот ответ может быть немного не по теме, но вопрос был Ваге, а :)

---

library(shiny) 

ui <- fluidPage(

    fluidRow(
    column(8, # column width goes from 1 to 12 where 12 is the whole screen 

      sidebarPanel(# default 4/12 ... in this case 3/4 of 8 
      titlePanel("Visualization"), 
      actionButton("goButton", "Go"), 
      actionButton("reset", "Reset"), 
      actionButton("pause", "Pause"), 
      actionButton("resume", "Resume"), 
      textInput("initial", "Initial Value", value = "c(-5, 5, 5)") , 
      textInput("targ", "Target", value = "c(0, 0, 0)"), 
      textInput("func", "Objective Function", value = "x1^2 + exp(x2^2) + 5 + x3^2") 
      ), 
      mainPanel(# 8 /12 ... so 3/4 of 8 
      helpText('XXX'), 
      helpText("width of the mainPanel within the first column"), 
      hr() 
      ) 
    ), 
    column(4, 
      br(), 
      helpText('width of the second column'), 
      hr() 
    ) 
) 
) 

server <- shinyServer(function(input, output) { 

}) 

shinyApp(ui, server)