머리글 옆에 반짝이는 위젯 배치

Question

머리글 외에 반짝이 위젯 (예 : selectInput()의 드롭 다운 상자)을 배치하려면 어떻게해야합니까? 나는 다양한 행운이없는 다양한 tags 공식으로 놀아왔다. 모든 포인터에 대해 감사드립니다.

ui.R

library(shiny) 
pageWithSidebar( 
    headerPanel("side-by-side"), 
    sidebarPanel(
tags$head(
    tags$style(type="text/css", ".control-label {display: inline-block;}"), 
    tags$style(type="text/css", "#options { display: inline-block; }"), 
    tags$style(type="text/css", "select { display: inline-block; }") 
), 
selectInput(inputId = "options", label = "dropdown dox:", 
    choices = list(a = 0, b = 1)) 
), 
    mainPanel( 
    h3("bla bla") 
) 
) 

server.R

shinyServer(function(input, output) { NULL }) 

Answer 1

이 당신이 원하는 무엇인가?

library(shiny) 

runApp(list(ui = pageWithSidebar( 
    headerPanel("side-by-side"), 
    sidebarPanel(
    tags$head(
     tags$style(type="text/css", "label.control-label, .selectize-control.single{ display: inline-block!important; }") 
    ), 
    selectInput(inputId = "options", label = "dropdown dox:", 
       choices = list(a = 0, b = 1)) 
), 
    mainPanel( 
    h3("bla bla") 
) 
) 
, server = function(input, output) { NULL }) 
)