ドロップダウンリストとテキストインプットを水平に配置する方法

Question

私は現在、光沢のあるアプリを開発中です。要素を水平に配置する際に問題に直面しています。次のように使用

RCODEは次のとおりです。次のように

ui <- fluidPage( 
    fluidRow(
    column(3, 
     selectizeInput("proj1", NULL, 
         choices = Dummy$Project_1, width = "300px", 
         options = list(
          placeholder = "Additional Projects", 
          onInitialize = I('function() { this.setValue(""); }') 
         ) 
     )), 
    column(3, textAreaInput("col11","", width = "200px", height = "43px")), 
    column(3, textAreaInput("col12","", width = "200px", height = "43px")), 
    column(3, textAreaInput("col13","", width = "200px", height = "43px")) 
) 
) 
server <- function(input, output){} 

shinyApp(ui = ui, server = server) 

出力は次のようになります。

誰もがこの問題で私を助けることができますか？

Answer 1

NULLの代わりにselectize入力で、いくつかのヘッダーを指定すると、正常に動作します。以下はコードです：

ui <- fluidPage( 
    fluidRow(
    column(3, 
      selectizeInput("proj1", "Choose value", 
          choices = c("A","B"), width = "300px", 
          options = list(
          placeholder = "Additional Projects", 
          onInitialize = I('function() { this.setValue(""); }') 
         ) 
      )), 
    column(3, textAreaInput("col11","", width = "200px", height = "43px")), 
    column(3, textAreaInput("col12","", width = "200px", height = "43px")), 
    column(3, textAreaInput("col13","", width = "200px", height = "43px")) 
) 
) 
server <- function(input, output){} 

shinyApp(ui = ui, server = server)