Używając najnowszej wersji Shiny, możesz to osiągnąć, umieszczając wywołania wejściowe w splitlayout (). Spowoduje to podział rzędu płynu, pudełka itp. do niezbędnych kolumn wymagane, aby pokazać swoje pola wejściowe obok siebie.

Poniższy przykład daje trzy wejścia tekstowe w polu, które pojawią się obok siebie w strumieniu fluidRow.

fluidRow(
  box(width = 12, title = "A Box in a Fluid Row I want to Split", 
      splitLayout(
        textInput("inputA", "The first input"),
        textInput("inputB", "The second input"),
        textInput("inputC", "The third input")
      )
  )
)

Być może tego rozwiązania nie było w 2013 roku, ale jeśli chcesz to zrobić bez pisania HTML lub CSS, możesz po prostu użyć funkcji column wewnątrz fluidRow w następujący sposób:

  fluidRow(
    column(3,
    selectInput('pcat', 'Primary Category', c("ALL", "Some"))),
    column(3,
    selectInput('smodel', 'Statistical Model', c("NONE", "LINEAR REGRESSION", "LOWESS")))
  )

I umieści rzeczy obok siebie.

EDIT: teraz jest inny bardzo łatwy sposób, aby to zrobić za pomocą funkcji splitLayout(). Więcej szczegółów znajdziesz w odpowiedzi Nadir Sidi.

Usunąłem starą odpowiedź-tutaj jest taka, która działa:

Ui.r:

library(shiny)
shinyUI(
  pageWithSidebar(
  # application title
  headerPanel("test01"),
  sidebarPanel(
     tags$head(
        tags$style(type="text/css", "select { max-width: 360px; }"),
        tags$style(type="text/css", ".span4 { max-width: 360px; }"),
        tags$style(type="text/css",  ".well { max-width: 360px; }")
      ),
     wellPanel(
        p(strong("Side Panel:"))
     )
  ),

 mainPanel(

    div(id="XXmin",textInput(inputId="xlimitsmin", label="x-min", value = 0.0)),
    tags$head(tags$style(type="text/css", "#XXmin {display: inline-block}")),
    tags$head(tags$style(type="text/css", "#xlimitsmin {max-width: 50px}")),

    div(id="XXmax",textInput(inputId="xlimitsmax", label="x-max", value = 0.5)),
    tags$head(tags$style(type="text/css", "#XXmax {display: inline-block}"),
    tags$head(tags$style(type="text/css", "#xlimitsmax {max-width: 50px}"))

  ))
))

Oto wprowadzone przeze mnie zmiany:

1) wyeliminowałem select z select#xlimitsmax i select#xlimitsmin w Twoich .css wypowiedziach

2) umieściłem Twoje dwie kontrolki w swoich div() i nadałem im nazwy XXmin i XXmax. Następnie dodałem .css instrukcje, aby uczynić je inline-block.

Jeśli masz ich kilka, możesz użyć class Oświadczenia - takiego jak:

div(class="MyClass",textInput(inputId="xlimitsmin", label="x-min", value = 0.0)),
tags$head(tags$style(type="text/css", ".MyClass {display: inline-block}")),
tags$head(tags$style(type="text/css", "#xlimitsmin {max-width: 50px}")),

Wtedy ty może oznaczyć każdą kontrolkę div() jako class="MyClass" i użyć tylko jednej instrukcji .css.

Edited to add: Thanks for posting the example code - that made it much easier.

Druga edycja: dla wyjaśnienia. Celem umieszczania poleceń textInput wewnątrz div() jest połączenie pola wejściowego i jego etykiety w jeden obiekt, tak aby można było zastosować style (w tym przypadku styl display). Jeśli tego nie zrobisz, etykieta i pudełko działają jak dwa oddzielne byty i trudniej jest nimi manipulować w takich przypadkach.

Jako alternatywa dla umieszczania wyrazistych deklaracji stylu w klasie, wydaje się, że możesz łatwo rozszerzyć funkcje shiny tags do swoich potrzeb. Ten konkretny byłby wygodny do posiadania domyślnie. (jest to z shiny shiny_0.14.1 ). Myślałem, że będę musiał napisać zakończenie, ale to chyba działa.

inline = function (x) {
tags$div(style="display:inline-block;", x)
}

inline(textInput(inputId="xlimitsmin", label="x-min", value = 0.0)),
inline(textInput(inputId="xlimitsmax", label="x-max", value = 0.5)),
inline(textInput(inputId="ylimitsmin", label="y-min", value = 0.5)),
inline(textInput(inputId="ylimitsmax", label="y-max", value = 1.0)),

Jeśli Chcesz wejść w mainPanel, możesz użyć następującego:

div(class="row-fluid",
  div(class="span1",textInput("xlimitsmin", label = "x-min", value = 0.0)), 
  div(class="span1",textInput("xlimitsmax", label = "x-max", value = 0.5)),
  div(class="span1",textInput("ylimitsmin", label = "y-min", value = 0.5)),
  div(class="span1",textInput("ylimitsmax", label = "y-max", value = 1.0))
)

Dodaj:

#xlimitsmin, #xlimitsmax, #ylimitsmin, #ylimitsmax { 
    max-width: 25px; 
}

W pliku css (np. style.css w katalogu www/) w aplikacji i źródło go z interfejsu użytkownika.R z:

IncludeCSS ('www / style.R')

Nie jestem pewien, dlaczego potrzebujesz textInput, a nie numericInput, ponieważ wejście, którego szukasz, jest numeryczne. Jeśli wybierzesz numericInput, możesz po prostu zamienić textInput na numericInput w powyższym przykładzie. Jeśli chcesz wejść w sidebarPanel możesz użyć kodu be