如何以像素為單位指定sidebarPanel的寬度？

Question

如何以像素為單位指定sidebarPanel的寬度？ 在我的情況下， width參數不夠准確。

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(width = 5), # This is not accurate enough!
    mainPanel()))

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

shinyApp(ui, server)

Answer 1

您還可以將width指定為百分比的函數，而不是將其硬編碼為px而是100% =全角

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    div(style="width: 70%;",sidebarPanel(width = 5)), # This is not accurate enough!
    mainPanel()))

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

shinyApp(ui, server)

Answer 2

借助R Shiny-側邊欄面板的背景，我找到了以下解決方案：

library(shiny)

ui <- fluidPage(
  tags$head(tags$style(HTML('#sidebar {width: 100px;}'))),
  sidebarLayout(
    sidebarPanel(id = "sidebar"),
    mainPanel()))

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

shinyApp(ui, server)

這不會影響其他wellPanels 。