图书馆 (发亮)
图书馆 (bs4现金)
用户界面 <- 仪表板页面 (
标题= “盒子API” ,
仪表板标题 (),
仪表板边栏 (),
仪表板车身 (
标签 $ 风格 ( “正文{背景色:幽灵白}” ),
流体行 (
action按钮 ( “切换框” , “切换框” ),
action按钮 ( “删除框” , “删除方框” , 类别= “bg-危险” ),
action按钮 ( “恢复框” , “还原框” , 类= “bg-成功” ),
action按钮 ( “更新框” , “更新框” , 类= “bg-primary” )
),
br个 (),
箱 (
标题= text输出 ( “盒子状态” ),
“箱体” ,
标识= “我的盒子” ,
可折叠的= 真的 ,
可关闭的= 真的 ,
绘图输出 ( “绘图” )
)
)
)
服务器 <- 功能 (输入、输出、会话){
输出 $ 情节 <- 渲染图 ({
请求 ( ! 输入 $ 我的盒子 $ 坍塌)
情节 ( rnorm公司 ( 200 ))
})
输出 $ 箱_状态 <- renderText(渲染文本) ({
状态 <- 如果 (输入 $ 我的盒子 $ 坍塌) “崩溃” 其他的 “未折叠”
粘贴 ( “我的盒子是” ,州)
})
observeEvent观察事件 (输入 $ 切换框{
updateBox(更新框) ( “我的盒子” , 行动= “切换” )
})
observeEvent观察事件 (输入 $ 删除框{
updateBox(更新框) ( “我的盒子” , 行动= “删除” )
})
observeEvent观察事件 (输入 $ 恢复框{
updateBox(更新框) ( “我的盒子” , 行动= “恢复” )
})
observeEvent观察事件 (输入 $ 更新框{
updateBox(更新框) (
“我的盒子” ,
行动= “更新” ,
选项= 列表 (
所有权= 氢气 ( “新标题” , 仪表板标签 ( 1 , 颜色= “主要” )),
状态= “危险” ,
实心页眉= 真的 ,
宽度= 4
)
)
})
观察事件 (输入 $ 我的盒子 $ 可见{
坍塌的 <- 如果 (输入 $ 我的盒子 $ 坍塌) “崩溃” 其他的 “未折叠”
看得见的 <- 如果 (输入 $ 我的盒子 $ 可见) “可见” 其他的 “隐藏”
消息 <- 粘贴 ( “我的盒子是” ,坍塌, “和” ,可见)
干杯 (
标题= 消息,
选项= 列表 (
自动隐藏= 真的 ,
类= “bg-墨水” ,
位置= “右上”
)
)
})
}
闪亮应用程序 (用户界面,服务器)
闪亮应用程序 (
用户界面= 仪表板页面 (
仪表板标题 (),
仪表板边栏 (),
仪表板车身 (
箱 (
标题= “可关闭的下拉框” ,
可关闭的= 真的 ,
宽度= 12 ,
状态= “警告” ,
实心页眉= 错误的 ,
可折叠的= 真的 ,
下拉菜单= box下拉列表 (
方框下拉项 ( “单击我” , 标识= “下拉项” , 图标= 偶像 ( “心” )),
方框下拉项 ( “项目2” , href公司= " https://www.google.com/ " ),
下拉分隔符 (),
方框下拉项 ( “项目3” , 图标= 偶像 ( “第个” ))
),
“我的盒子”
)
)
),
服务器= 功能 (输入、输出){
observeEvent观察事件 (输入 $ 下拉项{
干杯 (
标题= “嗨!” ,
选项= 列表 (
自动隐藏= 真的 ,
类= “bg-墨水” ,
位置= “右上”
)
)
})
}
)
用户描述 (
标题= “娜迪娅·卡迈克尔” ,
副标题= “首席开发人员” ,
类型= 2 ,
图像= " https://adminlte.io/themes/adminlte/dist/img/user7-128x128.jpg " ,
)
闪亮应用程序 (
用户界面= 仪表板页面 (
仪表板标题 (),
仪表板边栏 (),
仪表板车身 (
action按钮 ( “更新框” , “更新” ),
用户框 (
标识= “用户框” ,
标题= 用户描述 (
标题= “娜迪娅·卡迈克尔” ,
副标题= “首席开发人员” ,
类型= 2 ,
图像= " https://adminlte.io/themes/adminlte/dist/img/user7-128x128.jpg " ,
),
状态= “主要” ,
梯度= 真的 ,
背景= “主要” ,
方框工具大小= “xl” ,
“这里有一些文字!” ,
页脚= “页脚在这里!”
)
),
标题= “userBox”
),
服务器= 功能 (输入、输出){
observeEvent观察事件 (输入 $ 更新框{
updateBox(更新框) (
“用户框” ,
行动= “更新” ,
选项= 列表 (
标题= 用户描述 (
标题= “Jean Box” ,
副标题= “开发人员” ,
类型= 1 ,
图像= " https://adminlte.io/themes/adminlte/dist/img/user3-128x128.jpg " ,
),
状态= “危险” ,
背景= 无效的 ,
实心页眉= 错误的 ,
宽度= 4
)
)
})
}
)