Question

我有一个非常简单的测试脚本（Test.R）保存在共享驱动器（K:\\Market Risk\\R\\Scripts\\）中，我想从Shiny应用程序中调用它。

rm(list=ls())
Sys.sleep(5)

在我的应用程序中，我编写了一个函数来调用脚本并向应用程序用户显示该函数是否正在运行；它可以按预期运行。

run_test <- function() {
  print("Running...")
  source("K:\\Market Risk\\R\\Scripts\\Test.R", local = T)
  print("Complete")
}

但是，当部署到我的应用程序上时，文本输出仅在完成运行后才显示“完成”，而“正在运行...”仅在我的控制台而不是应用程序中显示。

library(shiny)

run_test <- function() {
  print("Running...")
  source("K:\\Market Risk\\R\\Scripts\\Test.R", local = T)
  print("Complete")
}

ui <- fluidPage(
  tabsetPanel(
    tabPanel("Reporting",
             br(),
             verticalLayout(
               fluidRow(strong("Test"), 
                        actionButton("Run_Test", "Run"), 
                        textOutput("text")
                        )
               )
             )
    )
)

server <- function(input, output) {
  observeEvent(input$Run_Test, {
    output$text <- renderText(run_test())
  })
}

shinyApp(ui = ui, server = server)

以前有没有人经历过？

Answer 1

由于@ r2evans，我能够在此处找到完全符合我需要的示例代码：here

闪亮的应用程序部分打印功能输出

1 个答案: