私は 3 つの入力コントロールを持っており、光沢のあるアプリケーションでページの左側に 1 つ、右側に 2 つ揃えたいと考えています。さらに、この回答selectInput
のコードを使用して解決した2つのコントロールを並べて配置する必要があります。
を使用するcolumn
と、align = "right"
必要なものを取得できます。問題は、選択矢印だけでなくテキストも右揃えになっていて、見栄えが悪いことです (下の図と強調表示された領域を参照)。
期待されるアライメントを達成する別の方法はありますか?
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)