Блестящий выравнивание элементов управления вводом вправо или влево - PullRequest
Новая
       13

Блестящий выравнивание элементов управления вводом вправо или влево

0 голосов
/ 25 октября 2018

У меня есть три элемента управления вводом, и я хочу выровнять один с левой стороны и два с правой стороны страницы в блестящем приложении.Кроме того, два элемента управления selectInput должны располагаться рядом, что я решил с помощью кода из этого ответа .

Используя 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)

enter image description here

1 Ответ

0 голосов
/ 25 октября 2018

Я не могу дать вам совет по наилучшей практике выравнивания, но в этом случае вы можете добавить 

text-align:left !important;

к вашему стилю args

...