r - 将对象传递给 Shiny 的应用程序并使用 runApp 启动

Question

我正在创建一个包含一些交互式 Shiny 应用程序的包。这些应用程序的目的是促进内存中对象的 GUI 探索。例如，我有一个由离散变量组成的对象，我想将其传递给 Shiny 的应用程序，然后通过 GUI 界面进行调整。

但是，当我尝试从 Shiny 应用程序访问此内存中对象时遇到了麻烦。

相关代码如下:

首先，我将 shinyServer 函数包装在另一个函数中。我的想法是让 Shiny 的服务器访问传递的对象。

    #' @export
    appServer <- function(bins) {
      su <- summary(bins)
      shinyServer(function(input, output) {

        ## values that should trigger updates when changed
        values <- reactiveValues(summary=su, i=1, bins=bins)

    # excluded rest of body for brevity ...

    }

在此函数中，我创建一个 shinyApp 对象并传入 ui(在另一个文件中)以及上面定义的 appServer 函数的结果。

makeApp <- function(bins) {
  shiny::shinyApp(
    ui = appUI,
    server = appServer(bins))
}

在此函数中调用前面的函数，该函数包装对 runApp 的调用并从用户处获取参数。

#' @export
adjust <- function(bins) {
  ## access data from the app?

  app <- makeApp(bins)
  shiny::runApp(app)
}

如何将内存中的对象传递给从另一个包导入的shinyApp？

当我执行上面的代码时，我收到以下错误:

ERROR: path[1]="C:\Users\myusername\AppData\Local\Temp\RtmpWMpvHT\widgetbinding23e8333e5298": The system cannot find the path specified

Answer 1

在下面的示例中，我演示了如何将对象x从全局环境或任何其他环境传递到 Shiny 的应用程序并更改其值。我不确定这是否能回答你的问题。无论如何，它也许有用:)

library(shiny)

x <- 5
x
deparse(substitute(x)) # is going to do the trick

fun <- function(obj) {

  # get the name of the passed object
  object_to_change <- deparse(substitute(obj)) 

  # get the object from a given environment
  val <- get(object_to_change, envir = .GlobalEnv) 
  # ?environment

  # Save the object as a reactive value
  values <- reactiveValues(x = val)                                   

  # Now define the app that is going to change the value of x
  ui <- shinyUI(fluidPage(
    br(),
    actionButton("quit", "Apply changes and quit"),
    textInput("new", "", value = NULL, placeholder = "Set new value of x"),
    textOutput("out")
  ))

  server <- function(input, output) {

    output$out <- renderPrint({ 
      values$x        
    })

    # change the value of x
    observe({
      req(input$new)
      values$x <- as.numeric(input$new)
    })

    # Apply changes and quit     
    observe({
      if (input$quit == 1) {
        assign(x = object_to_change, value = values$x, envir = .GlobalEnv)
        stopApp()
      } 
    })
  }
  # Run the app  
  shiny::shinyApp(ui, server)
}

fun(x)

# Check the new value of x in the .GlobalEnv
x