小编dlo*_*low的帖子

希望有人可以帮助我.

假设有一个函数"example"就是这样的

##function from a package

example<-function(f){
         #does something
         cat("step 1 done....")
         # etc etc
         cat("step 2 done....")
         return(some_data_frame)
}

##server ui code
example2<-reactive({
         if(input$some_action_button==0)
           return()
         result<-isolate(example(input$f1))
         return(result)
})

output$f2<-renderPrint({
         example2()
})

是否有某种方法可以定期将函数中的"cat"输出捕获到renderPrint中？假设这是一个很长的处理功能,用户可以获得一些feedbabk.invalidateLater不适用于已经存在于函数内的东西(至少在我在这里尝试的时候看起来那样).

另外,作为次要问题,以上述方式编写代码会导致renderPrint同时捕获"cat"和data.frame,这可能是因为"返回".

如果有人能指出我正确的方向,那将是最有帮助的!谢谢!