Question

`

library(shiny)

ui <- fluidPage(

    titlePanel("Hello"),
    sidebarLayout(
        sidebarPanel("Hello SideBar"),
        mainPanel("Hello MainPanel")
    )
)

server <- function(input, output) {


}

shinyApp(ui = ui, server = server)

`

仅凭眼球，我现在就可以知道我的侧边栏面板占据了屏幕宽度的大约33％。知道如何减小边栏的宽度，以使主面板更大吗？

Answer 1

sidebarPanel的宽度参数

width：边栏的宽度。对于流体布局，这是十二分之一总单位对于固定布局，它超出了宽度侧栏的父列是。

默认宽度为4，这可以确认您的目光估计是4/12是三分之一。因此，例如将其设置为当前宽度的1/2：

ui <- fluidPage(

    titlePanel("Hello"),
    sidebarLayout(
        sidebarPanel("Hello SideBar", width=2),
        mainPanel("Hello MainPanel")
    )
)

如何减少R Shiny Web应用程序中侧边栏面板的宽度？

1 个答案: