如何解决如何在 r Shiny 中将 Python 脚本作为未来/承诺网状运行?
当我从“未来”调用 python 脚本时,我收到以下错误:
收听http://127.0.0.1:5147 未处理的承诺错误:无法从集群 RichSOCKnode #1(本地主机“localhost”上的 PID 23834)检索 MultisessionFuture () 的值。报告的原因是“从连接读取错误”。事后诊断:无法确定具有此 PID 的进程是否存在,即无法推断 localhost worker 是否存活。
source_python('./python_ref.py')
server <- function(input,output,session) {
observeEvent(input$run,{
myFuture <- future({
testMethod(value1,value2,value3,value4,zvtags)
})
then(myFuture,onFulfilled = function(value) {
shinyjs::enable("run")
output$loading <- renderUI("Done")
dataset = crunchdata(fbs,fbr,fas,far)
p_plt(pp(dataset$datast,input$before[1],input$before[2],input$after[1],input$after[2]))
p_tab(dataset$datatab)
},onRejected = NULL)
return(NULL)
})
#The rest of the code irrelevant
})
这里是python脚本供参考(调用另一个脚本)
cat python_ref.py
import ab_read_lhdb
def testMethod(time1,time2,time3,time4,lszv):
ab_read_lhdb.main(time1,"rcvd",lszv)
#return ("before rcvd finished")
ab_read_lhdb.main(time1,"srvd",lszv)
#return ("before srvd finished")
ab_read_lhdb.main(time3,lszv)
#return ("after rcvd finished")
ab_read_lhdb.main(time3,lszv)
return ("LHDB Data pull finished")
有没有办法让这个工作? 谢谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。