我目前正在开发一个闪亮的应用程序。我在水平放置元素时遇到问题。
使用的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)
输出如下:
谁能帮我解决这个问题?
在您的选择输入而不是 NULL 中,如果您提供一些标题,那么它将正常工作。下面是代码:
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)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句