如何显示从python tqdm到R Shiny应用程序的进度条

编程问答 2022-11-06

问题描述

我正在尝试将我的python函数与R Shiny集成。 Shiny UI有一个按钮，在单击时显示由python函数创建的数据框。 python函数有一个循环来生成数据帧。我需要在闪亮的UI中显示循环的每个步骤/迭代的进度。我已经使用tqdm来显示python的进度。当我将此python函数导入R时，我可以在R控制台中看到进度条，但无法在R Shiny上显示此进度条。 下面是python代码。

    from tqdm import tqdm
    import pandas as pd
    def output_from_visit():
         results = []
         for visit in tqdm(range(0,10)):
             square = visit**2
             output = {}
             output['visit'] = visit  
             output['square'] = square
             results.append(output)
         return results

    def gen():
        a = output_from_visit()
        result_df = pd.DataFrame(a)
        return result_df

下面是R闪亮代码

library(shiny)
library(reticulate)
library(shinyjs)
reticulate::source_python("C:\\Users\\Desktop\\rshiny\\visit.py")
ui <- fluidPage(
  fluidRow(
    actionButton("button1","Click Here")
  ),fluidRow(
    tableOutput("result")
  )
)
server <- function(input,output) {
  output$result<-renderTable({
    if (input$button1){
      res = gen()
    }

  })
}

shinyApp(ui,server)

还要在下面附加SS。

enter image description here

渲染的数据框可以在闪亮的应用程序中看到，并且进度打印在R控制台上。 还想知道python函数是否可以通过某种方式将循环中的访问次数返回到R中，以便我可以使用R Shiny的进度条代替tqdm进度条。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

progress-barpythonrrshinytqdm