如何将selectInput框移动到文本旁边？

Question

我的Shiny应用程序中有selectInputs，但是它们之间留有很多空白。

selectInput("vicNation", "Select victim nationality: ", 
                               choices = sort(unique(newngo$Victim.Nationality)), selected = NULL,
                               multiple = TRUE, selectize = TRUE, width = NULL, size = NULL)

当我运行它时，我得到： https://firstwebsite.com/js/js.js

是否可以将selectInput移至文本旁边，以减少空白

Answer 1

如评论中所述：

  ui <- fluidPage(
    fluidRow(column(3,
    "Select victim nationality: "),
    column(6,
    selectInput("vicNation", label = NULL, 
                choices = c('German','English','French'), selected = NULL,
                multiple = TRUE, selectize = TRUE, width = NULL, size = NULL)
    )
    )
  )