[英]Shiny - Adjust width of sidebarPanel() relative to mainPanel()
我有以下代碼段,它作為我閃亮的 UI 的一部分工作:
fluidPage(
titlePanel("Complaints this month"),
tabsetPanel(
tabPanel(
"Opened",
sidebarLayout(
sidebarPanel(
sliderInput('sampleSize', 'Sample Size', min = 1, max = nrow(ThisMonthCreated),
value = 1000, step = 500, round = 0),
selectInput('Openedx', 'X', choices = nms1, selected = "ActualDateCreated"),
selectInput('Openedy', 'Y', choices = nms1, selected = "TimeToAcknowledge"),
selectInput('Openedcolor', 'Color', choices = nms1, selected = "SimpleBusinessArea"),
selectInput('Openedfacet_row', 'Facet Row', c(None = '.', nms1), selected = "none"),
selectInput('Openedfacet_col', 'Facet Column', c(None = '.', nms1)),
sliderInput('OpenedHeight', 'Height of plot (in pixels)',
min = 100, max = 2000, value = 680)
),
mainPanel(
plotlyOutput("Open", height = "600px")
)
)
)
)
)
)
我試圖通過弄亂其中的東西的寬度來調整側欄面板,但這當然不會影響側欄面板的實際寬度。 它只影響內部特定事物的大小,因此它不會提供所需的結果:
sidebarLayout(
sidebarPanel(
sliderInput('sampleSize', 'Sample Size', min = 1, max = nrow(ThisMonthCreated),
value = 1000, step = 500, round = 0, width = "50%"),
selectInput('Openedx', 'X', choices = nms1, selected = "ActualDateCreated", width = "50%"),
selectInput('Openedy', 'Y', choices = nms1, selected = "TimeToAcknowledge", width = "50%"),
selectInput('Openedcolor', 'Color', choices = nms1, selected = "SimpleBusinessArea", width = "50%"),
selectInput('Openedfacet_row', 'Facet Row', c(None = '.', nms1), selected = "none", width = "50%"),
selectInput('Openedfacet_col', 'Facet Column', c(None = '.', nms1), width = "50%"),
sliderInput('OpenedHeight', 'Height of plot (in pixels)',
min = 100, max = 2000, value = 680, width = "50%")
),
mainPanel(
plotlyOutput("Open", height = "600px")
)
)
我想要它,以便側邊欄面板是主面板的 1/3(我可能不想根據它的外觀來調整它)。 這是可行的還是我必須為我制作的每個選項卡中的兩個面板提供特定的寬度參數(例如 1000 像素)?
提前致謝
簡單的 sidebarPanel(..., width = 2) 對我有用,如 R 文檔所示。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.