0

私は 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)

ここに画像の説明を入力

4

1 に答える 1