Come visualizzare i widget inline in lucido

Question

Ho il codice qui sotto per visualizzare la linea widget (in stessa riga) nel lucido

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

E 'venuta fuori in UI, ma non nello stesso ordine di linea. uno in arrivo nella parte superiore e l'altro sta arrivando nella parte inferiore della stessa linea.

C'è un modo per correggere questo disallineamento?

Answer 1

Aggiungi vertical-align:top al 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: come aggiungere spazio tra i div

È possibile utilizzare lo stesso approccio: Esempio sotto ha 100px tra il 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

È necessario creare una pagina di flusso con una barra di scorrimento e quindi utilizzare la funzione di colonna.

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

Più particolare, cercare fluidPage, fluidRow e colonna all'interno riferimenti alle funzioni lucidi: http://shiny.rstudio.com/reference/shiny/latest/