光沢のあるselectInputでドロップダウンの幅をカスタマイズします

Question

this questionから採用されている以下のコードは、テキストの折り返しのドロップダウンを防ぎ、すべてのドロップダウンの幅を設定します。

selectInputのドロップダウンの幅をカスタマイズする方法はありますか？私はあなたの権利を理解していれば

library(shiny) 

ui <- (fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectInput("userInput","Select User", c(1,2,3), 
        selected=1), 
     selectInput("LongInput", "Long Strings", c("This is a long long string that is long.", 
               "This is a long long string that is longer.")) 
    ), 

    # allows for long texts to not be wrapped, and sets width of drop-down 
    tags$head(
     tags$style(HTML(' 
         .selectize-input { 
         white-space: nowrap; 
         } 
         .selectize-dropdown { 
         width: 660px !important; 
         }' 
      ) 
      ) 
     ) 
     ) 
    )) 

server <- function(input, output, session) {} 

shinyApp(ui, server) 

Answer 1

あなたは

library(shiny) 

ui <- (fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectInput("userInput","Select User", c(1,2,3), 
        selected=1), 
     selectInput("LongInput", "Long Strings", c("This is a long long string that is long.", 
               "This is a long long string that is longer.")) 
    ), 

    # allows for long texts to not be wrapped, and sets width of drop-down 
    tags$head(
     tags$style(HTML(' 
         .selectize-input { 
         white-space: nowrap; 
         } 
         #LongInput + div>.selectize-dropdown{ 
         width: 660px !important; 
         } 
         #userInput + div>.selectize-dropdown{ 
              width: 300px !important; 
         } 
         ' 
      ) 
    ) 
    ) 
    ) 
    )) 

server <- function(input, output, session) {} 

shinyApp(ui, server) 

そのようなものは、例えば更新 あなたも行うことができます

それdunamic userInput

ためLongInputと300ピクセルのため660pxに設定する必要がありますあなたは入力名とサイズのdfを持っています

df1=data.frame(name=c("LongInput","userInput"),px=c(600,300)) 

だから、あなたが長いだけのために、ドロップダウンの幅を変更したい

library(shiny) 

ui <- (fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectInput("userInput","Select User", c(1,2,3), 
        selected=1), 
     selectInput("LongInput", "Long Strings", c("This is a long long string that is long.", 
               "This is a long long string that is longer.")) 
    ), 

    uiOutput("din_css") 

    ) 
    )) 

server <- function(input, output, session) { 
    df1=data.frame(name=c("LongInput","userInput"),px=c(600,300)) 

output$din_css=renderUI({ 
    tags$head(
     tags$style(HTML(paste0(' 
         .selectize-input { 
         white-space: nowrap; 
         }', 
         paste(apply(df1,1,function(i){ 
          paste0("#",i[["name"]],"+ div>.selectize-dropdown{ 
          width: ",i[["px"]],"px !important; 
          }") 
         }) 
         ,collapse='/n')  ) 
    ) 
    ) 
    ) 
    }) 
} 

shinyApp(ui, server)