2013-06-24 7 views
11

Ich frage mich, ob es möglich ist, die Kontrollkästchen Option nebeneinander auf der Benutzeroberfläche anzuzeigen. Einige Beispielcode, der ich versucht habe:R Shiny: Side by Side Checkbox

shinyUI(pageWithSidebar(
    headerPanel("Example"), 
    sidebarPanel( 
    checkboxInput(inputId = "simOption", label = "Historical Data",value=TRUE), 
    checkboxInput(inputId = "simOption2", label = "Historical Data 2",value=TRUE) 


), 

    mainPanel(
tabsetPanel(

    tabPanel("Heatmap", 
      plotOutput("temp") 
), 
    tabPanel("About"), 

    id="tabs" 
)#tabsetPanel 

)#mainPane; 

)) 

Antwort

13

Try fudging einige Bootstrap-Syntax:

shinyUI(pageWithSidebar(
    headerPanel("Example"), 
    sidebarPanel( 

    withTags(div(class='row-fluid', 
       div(class='span3', checkboxInput(inputId = "simOption", label = "Historical Data",value=TRUE)), 
       div(class='span5', checkboxInput(inputId = "simOption2", label = "Historical Data 2",value=TRUE)) 
    )) 



), 

    mainPanel(
tabsetPanel(

    tabPanel("Heatmap", 
      plotOutput("temp") 
), 
    tabPanel("About"), 

    id="tabs" 
)#tabsetPanel 

)#mainPane; 

)) 

https://medium.com/what-i-learned-building/99fdd6e46586

EDIT für horizontale Radioknopf

von ?radiobutton

radioButtons("dist", "Distribution type:", 
      c("Normal" = "norm", 
       "Uniform" = "unif", 
       "Log-normal" = "lnorm", 
       "Exponential" = "exp")) 

ersetzen mit einem

gsub("label class=\"radio\"", "label class=\"radio inline\"",radioButtons("dist", "Distribution type:", 
      c("Normal" = "norm", 
       "Uniform" = "unif", 
       "Log-normal" = "lnorm", 
       "Exponential" = "exp"))) 
) 
+0

Ich bin neu in Bootstrap, aber was, wenn es ein Optionsfeld in glänzend? Wie können Sie den obigen Rahmen anwenden? Radio-Button ist eher knifflig als seine einzige Funktion als Gegensatz zu zwei separaten. Danke, – user1234440

+0

https://github.com/plataformatec/simple_form/issues/649 spielt auf vielleicht an, was du beschreibst. Sie können einfach Ihre eigenen Steuerelemente mit den grundlegenden Tag-Bausteinen erstellen. – user1609452

+0

Es sei denn, Sie sind sehr faul wie ich, in diesem Fall können Sie 'gsub' – user1609452

13

Sie checkboxGroupInput mit inline = TRUE param verwenden:

checkboxGroupInput(inputId = "simOption", label = "", 
        choices = c("Historical Data" = TRUE, 
           "Historical Data 2" = TRUE), 
        inline = TRUE) 
Verwandte Themen