Rshiny的简单组件（一）——可展开侧边栏

写的原因

组内可能有人想用Rshiny来写一写软著，我想当时也学了蛮久的，我把几个相对关键的地方写一写，在网上之前应该没看到（在中文网站上很少）
包括以下几个部分：可展开侧边栏、如何把神经网络放入到Rshiny中（包括简单调参，和多种神经网络的选择）等等。
剩下的我仔细想想还有什么。

使用的一些软件说明

使用的是包：shinydashboard
如何使用这个包请看以下链接，写的很好很详细。
链接: shinydashboard与shiny_史上最全（三）
链接: shinydashboard与shiny_史上最全（一）
链接: shinydashboard与shiny_史上最全（二）

代码

#基础的空运行shiny如下（包括了最基本的元素）：
#UI 界面
ui_t1 <- dashboardPage( 
  skin = "blue",
  #在global里
  dashheader,
  dashsidebar1,
  dashboardBody())
#server 界面
server_t1 <- function(input, output){}
shinyApp(ui_t1,server_t1)
########一下开始各个功能栏展示
## 展开侧边栏
dashsidebar1 <- dashboardSidebar(
    sidebarMenu(
       menuItem("数据库数据",
             tabName = "tab2",icon = icon("database"),
             menuItem("数据浏览",tabName = "tab2_1",
                      icon = icon("calendar-plus")),
             selectInput("fault_l","故障程度等级数据选择",
                         c("等级1","等级2",
                           "等级3","等级4","全等级"),
                         selected = "故障等级2"),
             menuItem("模型的数据输入格式",tabName = "tab2_2",
                      icon= icon("keyboard"))),
    menuItem("用户测试数据",
             tabName = "tab1",icon = icon("dice-d6"),
             menuItem("上传数据",tabName = "tab1_1",
                      icon = icon("calendar-alt")),
             menuItem("查看-数据特征缩放",tabName = "tab1_2",
                      icon = icon("calendar-check")))))
dashheader <- dashboardHeader(
  title = "基于R语言的XXXX可视化分析平台",
  titleWidth =500)

效果如下