在显示视频的同时保持代码运行

Question

因此，我正在尝试编写一些代码，以使视频一直运行，直到满足条件并完成某些过程，并在这些过程之后立即加载新视频。这些过程应继续进行而不关闭当前视频，并且仅应在加载新视频并准备进行视频化时关闭当前视频。

最好通过以下示例来阐述：

shinyServer(function(input, output) {

  prediction <- eventReactive(input$predict, {
    loan_status <- c(0)
    loan_amnt <- input$loan_amnt
    int_rate <- input$int_rate
    term <- input$term
    installment <- input$installment
    grade <- input$grade
    emp_length <- input$emp_length
    annual_inc <- input$annual_inc
    dti <- input$dti
    sub_grade <- input$sub_grade
    verification_status <- input$verification_status
    home_ownership <- input$home_ownership
    pymnt_plan <- input$pymnt_plan
    temp2 <- cbind(loan_status, loan_amnt, int_rate, term, installment, grade, emp_length, annual_inc, dti, sub_grade, verification_status, home_ownership, pymnt_plan)
    loanfilev3 = dplyr::select(.data = loanfile,loan_status,loan_amnt,int_rate,term,installment,grade,emp_length,annual_inc,dti,sub_grade,verification_status,home_ownership,pymnt_plan) 
    loanfilev3 = rbind(loanfilev3, temp2, deparse.level = 0)
    loanfilev3$grade = as.factor(loanfilev3$grade)
    loanfilev3$sub_grade <- as.factor(loanfilev3$sub_grade)
    loanfilev3$term <- as.factor(loanfilev3$term)
    loanfilev3$emp_length <- as.factor(loanfilev3$emp_length)
    loanfilev3$verification_status <- as.factor(loanfilev3$verification_status)
    loanfilev3$home_ownership <- as.factor(loanfilev3$home_ownership)
    loanfilev3$pymnt_plan <- as.factor(loanfilev3$pymnt_plan)
    loanfilev3$loan_status <- as.factor(loanfilev3$loan_status)
    loanfilev3$grade <- as.numeric(loanfilev3$grade)
    loanfilev3$sub_grade <- as.numeric(loanfilev3$sub_grade)
    loanfilev3$term <- as.numeric(loanfilev2$term)
    loanfilev3$emp_length <- as.numeric(loanfilev3$emp_length)
    loanfilev3$verification_status <- as.numeric(loanfilev3$verification_status)
    loanfilev3 <- loanfilev3[complete.cases(loanfilev3),]
    predict(object = ct, newdata = loanfilev3[886508], type = "prob"))
  })

  output$ct <- renderPrint({
    as.data.frame(prediction())[2,]*100
  })
})

因此，此代码生成一个随机数，并检查它是否为偶数。如果是偶数则播放其他视频，如果是奇数则播放另一个视频。我对这段代码的期望是保持每次生成的随机数      10秒钟并在“ while循环”再次运行时保持视频运行，并生成另一个随机数，并在不关闭视频的情况下检查它是否是偶数。如果数字为奇数，则关闭当前视频后立即运行另一个视频。但是，此代码只会使视频按预期方式循环运行，而不会生成另一个随机数。

它基本上卡在cv2.imshow上，直到按下“ q”键，然后才再次运行“ while循环”。