向右或向左闪亮对齐输入控件
Shiny align Input controls right or left
我有三个输入控件,想在闪亮的应用程序中将一个在页面左侧对齐,两个在右侧对齐。此外,两个 selectInput
控件必须并排放置,我使用 .
代码解决了这个问题
使用 column
和 align = "right"
我能够得到我想要的。问题是文本以及 select 箭头也是右对齐的,这看起来很糟糕(见下面的图片和突出显示的区域)。
是否有其他方法可以达到预期的对齐方式?
library(tidyverse) # loaded for the words data.frame
library(shiny)
ui <- fluidPage(
navbarPage(
set.seed(1233),
fluidRow(
column(8,radioButtons("plot", "", choices = list("Cluster"="1","Correlation"="2"), inline=T)),
column(4, align = "right",
div(style="display: inline-block;vertical-align:top; width: 120px;",
selectInput("Something","Something", choices = sample(words, 5))),
div(style="display: inline-block;vertical-align:top; width: 120px;",
selectInput("Else","else", choices = sample(words, 6))))
)
)
)
server <- function(input, output) {}
shinyApp(ui, server)
我无法为您提供对齐的最佳实践建议,但在这种情况下,您可以添加
text-align:left !important;
你的样式参数
我有三个输入控件,想在闪亮的应用程序中将一个在页面左侧对齐,两个在右侧对齐。此外,两个 selectInput
控件必须并排放置,我使用
使用 column
和 align = "right"
我能够得到我想要的。问题是文本以及 select 箭头也是右对齐的,这看起来很糟糕(见下面的图片和突出显示的区域)。
是否有其他方法可以达到预期的对齐方式?
library(tidyverse) # loaded for the words data.frame
library(shiny)
ui <- fluidPage(
navbarPage(
set.seed(1233),
fluidRow(
column(8,radioButtons("plot", "", choices = list("Cluster"="1","Correlation"="2"), inline=T)),
column(4, align = "right",
div(style="display: inline-block;vertical-align:top; width: 120px;",
selectInput("Something","Something", choices = sample(words, 5))),
div(style="display: inline-block;vertical-align:top; width: 120px;",
selectInput("Else","else", choices = sample(words, 6))))
)
)
)
server <- function(input, output) {}
shinyApp(ui, server)
我无法为您提供对齐的最佳实践建议,但在这种情况下,您可以添加
text-align:left !important;
你的样式参数