サイドバーとtextInputオブジェクトを1行に作成する方法

Question

問題はsidebarPanelオブジェクトの右側にhelpTextオブジェクトを配置したいという問題です。ここに私のコード：

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はサイドバーパネルのすぐ下にあります。これを修正し、正しい空白領域にhelpTextオブジェクトを作成するにはどうすればよいですか？おかげさまで

Answer 1

mainPanelを最初の列に追加し、そこにhelpTextを入れることができます。下の例では、列の幅を最大12のうちの8に設定します。

このmainPanelは、幅8の列の8/12であり、sidebarPanelは同じ列の幅4/12です。

最大幅が4の別の列の場所はまだありますが、そこには別のhelpTextを配置しました。

この回答は、トピックオフ少しかもしれないが、問題は同様にvageた:)

---

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)