在后台运行闪亮的应用程序并将对象复制到全局环境？

问题描述

我有一个使用此文件在后台运行的闪亮应用程序。 （请参考下面的代码）

library(rstudioapi)

#Run shiny app in the background
jobRunScript("Tree/working/shiny-run.R","Tree",exportEnv = .GlobalEnv) #Relative Path 

闪亮运行。R

options(shiny.autoreload = TRUE)

#Set up permanent port
shiny::runApp(port = 3522)

我希望能够与我的应用程序进行交互，并将对象从闪亮的应用程序发送到全球环境。

例如。如果我在后台运行此应用程序，如何获取对象 text_reactive $ text 并将其保存在globalenv中？

ui <- fluidPage(
  headerPanel("Example reactiveValues"),mainPanel(
    
    # input field
    textInput("user_text",label = "Enter some text:",placeholder = "Please enter some text."),actionButton("submit",label = "Submit"),# display text output
    textoutput("text"))
)

server <- function(input,output) {
  # observe event for updating the reactiveValues
  observeEvent(input$submit,{
                 text_reactive$text <- input$user_text
                 #assign("data",text_reactive$text,envir=.GlobalEnv)
                 
               })
  
  eventReactive(input$submit,{
    assign("data",envir=.GlobalEnv)
    
  })
  
  # reactiveValues
  text_reactive <- reactiveValues(
    text = "No text has been submitted yet."
  )
  
  # text output
  output$text <- renderText({
      text
    
  })
}

shinyApp(ui = ui,server = server)

解决方法

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

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

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