修复Shinydashboard侧边栏

Question

下面是我的闪亮仪表盘的截图。我希望侧边栏(其中有一个搜索功能)被修复，以便当用户加载它时，它不会折叠。

​

​

Answer 1

您可以向dashboardSidebar添加collapsed = FALSE

ui <- dashboardPage(
        

        # Dashboard Title
        title = "DashboardPage",
        
        # Dashboard Header;
        header = dashboardHeader(
                
        ),
        
        # Dashboard Sidebar; 
        sidebar = dashboardSidebar(
                collapsed = FALSE
                ),
        
        # Dashboard Body;
        body = dashboardBody(
                
        )
)