好多年前照着教程写了一个shiny应用,主要是用于业务中的一些计算和绘图,界面是基于shinydashboard模板加了一些js脚本,封装之后在R4.1.3版本之前稳定用了近7年,最近升级4.2,连带升级了shiny,shinyjs,shinydashboard包,界面加载竟然失败了,出现了满屏框架脚本的文本,但在Rstuio中未报任何错误,红色的运行按钮仍在运行,强制关掉页面仍然会变灰。试着把shiny相关的包退回到旧版本仍然无法恢复,所以不知道从哪调试起。由于封装的脚本太多太乱,不知道贴哪些信息有用,表大家先给一些提示,谢谢!
主函数片段:
`server=function(input,output,session,.dir=dir,.opendir=opendir,.rename=rename,.encoding=encoding,.debug=debug,.logging=logging,.basemap=basemap,...) CMSSserver(input=input,output=output,session=session,dir=.dir,opendir=.opendir,rename=.rename,encoding=.encoding,debug=.debug,logging=.logging,basemap=.basemap,...)
onStartfun=function(.local=local,.global_forecast=global_forecast,.global_cimiss=global_cimiss,.global_cimissdays=global_cimissdays,.global_getdatabindlocal=global_getdatabindlocal,.global_closeka=global_closeka,.global_darkgrey=global_darkgrey,.global_grey=global_grey) shinyload(local=.local,global_forecast=.global_forecast,global_cimiss=.global_cimiss,global_cimissdays=.global_cimissdays,global_getdatabindlocal=.global_getdatabindlocal,global_closeka=.global_closeka,global_darkgrey=.global_darkgrey,global_grey=.global_grey)
app=shinyApp(CMSSui,server,onStart=onStartfun)
runApp(app,host="10.104.131.195",port=1103,launch.browser=TRUE)`
ui部分片段:
CMSSui=fluidPage(tags$style(type="text/css",".selectize-input{ z-index: 0;}"),dashboardPage(dashheader,dashslidebar,dashbody))
正常加载的样子:
加载失败的样子: