我正在开发一个闪亮的应用程序,其中涉及显示公司的管理层次结构。
一旦上传到远程服务器,该应用程序大约需要10-15分钟才能完全呈现并与最终用户互动。
是否可以将应用程序“加载”到远程服务器上,从而使最终用户的加载时间大大减少?
我自己的搜索建议解决方案是将renderCollapsibleTree
保留在global.R
中,并使服务器连续运行会话(仍然需要弄清楚该怎么做)。
如果有更简单的解决方案,我很想听听。
编辑:我已经加入了global.R
代码:
tree_data <- read.csv("FileName", header = TRUE, row.names = NULL, stringsAsFactors = FALSE) %>%
select(EmployeeName, SupervisorName, pathString)
hierarchy_tree <- data.tree::as.Node(tree_data, pathDelimiter = "/")
rendered.tree <- renderCollapsibleTree({
collapsibleTree(hierarchy_tree, inputId = "node")
})
和我的server.R
代码中的相关部分:
server <- function(input,output){
output$tree <- rendered.tree
}