Question

目前，我有启动闪亮app的功能，获取用户输入，一旦关闭闪亮的窗口就保存到全局变量。

我想添加ActionButton以关闭闪亮而不是必须关闭窗口的人

ActionButton关闭闪亮---但它绕过了session$onSessionEnded

中的代码

运行Shiny终端显示后，它会在调色板的值中扫描，但是cherrypickedpalette的全局变量为NULL

> CherryPickPalette("BiryaniRice","Kulfi","Haveli2")

Listening on http://127.0.0.1:5345
Read 8 items
> cherrypickedpalette
NULL

以下是entire R script

调用功能

CherryPickPalette <- function (name, name2=NULL, name3=NULL){

  #snipped code#

  cherrypickedpalette <- CustomPal(new_pal)

  #snipped code#

}

闪亮的功能

CustomPal <- function(new_pal){
  if (interactive()){
    #snipped code#
    }
    cherrypickedpalette <- runApp(list(
      #snipped code#
        mainPanel(
          h5('Your Cherry-Picked Palette',style = "font-weight: bold;"),
          fluidRow(column(12,verbatimTextOutput("col"))),
          actionButton("action", label = "I'm Done")
          )
      ),
      server = function(input,output,session){
        outputdata<-  reactive({
          input$col
        })

        output$col <- { 
          renderPrint(outputdata())
        }

        #Code to detect closing button
        observe({
          if (input$action > 0) 
            stopApp()
        })
        #Code to detect closing button

        session$onSessionEnded(function(){
          message <- paste(isolate(outputdata())," ")
          cat(message,file=colorfile, append=TRUE)
          cherrypickedpalette <<- scan(file=colorfile," ")
          stopApp(cherrypickedpalette)
          file.remove(colorfile)
        })
      }
    )
    )
  }
}

Answer 1

使用github代码，我现在可以重现您的应用程序。看起来onSessionEnded被调用，因为文件被写入磁盘并且cat被调用。所以我不认为问题存在。不知何故，cherrypickedpalette <<-没有分配给全球环境。

但是我不明白为什么你必须把结果写到磁盘然后再扫描它们来获取值？是出于特定原因吗？

我可以使用onSessionEnded函数中的assign将颜色分配给全局环境。

请尝试使用此CustomPal功能：

CustomPal <- function(new_pal){
  if (interactive()){
    cherrypickedpalette <- runApp(list(
      ui = {fluidPage(
        titlePanel("Cherry Pick Your Own Palette!"),
        sidebarPanel (hr(),
                      selectInput('col', 'Options', new_pal, multiple=TRUE, selectize=FALSE, size = 15)
        ),
        mainPanel(
          h5('Your Cherry-Picked Palette',style = "font-weight: bold;"),
          fluidRow(column(12,verbatimTextOutput("col"))),
          actionButton("action", label = "I'm Done")
        )
      )},
      server = function(input,output,session) {
        outputdata<-  reactive({
          input$col
        })
        output$col <- { 
          renderPrint(outputdata())
        }
        observeEvent(input$action, {
          stopApp()
        })

        session$onSessionEnded(function(){
          message <- paste(isolate(outputdata())," ")
          print(paste("Message: ", message))
          assign("cherrypickedpalette", message, pos =  .GlobalEnv)
          stopApp(cherrypickedpalette)
        })
      }
    )
    )
  }
}

加载所有函数后，调用shinyApp，选择颜色，通过actionButton关闭应用程序或关闭窗口，颜色应存储在变量cherrypickedpalette中。

library(shiny)
CherryPickPalette("BiryaniRice","Kulfi","Haveli2")
cherrypickedpalette

UPDATE1：

您也可以省略整个onSessionEnded进程并将变量写入observeEvent函数内的全局环境。

删除会话功能并将observeEvent替换为：

    observeEvent(input$action, {
      cherrypickedpalette <<- paste(isolate(outputdata())," ")
      stopApp()
    })

UPDATE2：

因此onSessionEnded正常工作，问题实际上是scan函数。您似乎无法使用该功能直接写入全局环境。但是您可以使用它来存储值，并在下一行中将此值赋给glob.env。如果需要将值存储到磁盘，则使用以下行也应该可以工作。

      cherrypickedpalette <- scan(file=colorfile," ")
      cl <<- cherrypickedpalette

ShinyAction按钮关闭App，但是绕过会话$ onSessionEnded

1 个答案: