Jak wyświetlić widżety inline w błyszczące

Question

Mam poniższy kod, aby wyświetlić inline widgetów (w tym samym wierszu) w błyszczące

div(style="display:inline-block; width: 150px;height: 75px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')), 
div(style="display:inline-block; width: 150px;height: 75px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5)) 

To wychodzi w interfejsie użytkownika, ale nie w tej samej kolejności linii. jeden wchodzi w górną stronę, a drugi w dolną stronę - tę samą linię.

Czy istnieje sposób korekty tej niewspółosiowości?

Answer 1

Dodaj vertical-align:top do style

rm(list = ls()) 
library(shiny) 

ui <- fluidPage(
    sidebarPanel(
      div(style="display: inline-block;vertical-align:top; width: 150px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')), 
      div(style="display: inline-block;vertical-align:top; width: 150px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))), 
    mainPanel() 
) 
server <- shinyServer(function(input,output){}) 
shinyApp(ui, server) 

EDIT: Jak dodaj przestrzeń między divami

Można użyć tego samego podejścia: Poniższy przykład ma 100px pomiędzy div

rm(list = ls()) 
library(shiny) 

ui <- fluidPage(
    sidebarPanel(
    div(style="display: inline-block;vertical-align:top; width: 150px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')), 
    div(style="display: inline-block;vertical-align:top; width: 100px;",HTML("<br>")), 
    div(style="display: inline-block;vertical-align:top; width: 150px;",textInput(inputId="xlimitsmax", label="x-max", value = 0.5))), 
    mainPanel() 
) 
server <- shinyServer(function(input,output){}) 
shinyApp(ui, server) 

Answer 2

Powinieneś utworzyć stronę fluidu z płynem, a następnie użyć funkcji kolumny.

 fluidPage(fluidRow(
         column(2, selectInput()), 
         column(1, selectInput()), 
         column(2, textInput()) 
         ) 
       ) 

Więcej szczegółów, patrzeć fluidPage, fluidRow i kolumny wewnątrz błyszczące odniesień funkcyjnych: http://shiny.rstudio.com/reference/shiny/latest/