recomendado - Cómo mostrar widgets en línea en brillante

tamaño imagen destacada wordpress

Question

Tengo el siguiente código para mostrar los widgets en línea (en la misma fila) en brillante

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

Está saliendo en UI, pero no en el mismo orden de línea. uno viene en el lado superior y el otro viene en el lado inferior uno en la misma línea.

¿Hay alguna manera de corregir esta desalineación?

Answer 1

Añadir vertical-align:top a su 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)

Editar: cómo agregar espacio entre los divs

Puede usar el mismo enfoque: El siguiente ejemplo tiene 100px entre los divs.

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

Debería crear una página de fluido con un fluidoRow y luego usar la función de columna.

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

Más detalles, busque fluidPage, fluidRow y column dentro de las referencias de funciones brillantes: http://shiny.rstudio.com/reference/shiny/latest/