Выполнить команду после shinyApp

Question

Я начал играть немного с блестящим ...

Есть ли возможность выполнять команды после того, как блестящее приложение закрывается?

Так вот минимальный пример:

library(dplyr) 
library(ggvis) 
library(shiny) 
library(ggplot2) 
df <- data.frame(x=rnorm(10), y=rnorm(10), id=letters[1:10]) 
server <- function(input, output) { 
    movie_tooltip <- function(x) { 
    x$id 
    } 
    vis <- reactive({ 
    df %>% 
     ggvis(~x, ~y) %>% 
     layer_points(key := ~id) %>% 
     add_tooltip(movie_tooltip, "hover") 
    }) 
    vis %>% bind_shiny("plot1") 
} 
ui <- fluidPage(
    ggvisOutput("plot1") 
) 
shinyApp(ui = ui, server = server) 

ggplot(df, aes(x, y)) + geom_point() 

Я хотел бы, чтобы выполнить эту команду ggplot после закрытия блестящего приложения.

Answer 1

Как предложил hrbrmstr, я применил свой комментарий к моему примеру.

library(dplyr) 
library(ggvis) 
library(shiny) 
library(ggplot2) 
df <- data.frame(x=rnorm(10), y=rnorm(10), id=letters[1:10]) 
server <- function(input, output) { 
    movie_tooltip <- function(x) { 
    x$id 
    } 
    vis <- reactive({ 
    df %>% 
     ggvis(~x, ~y) %>% 
     layer_points(key := ~id) %>% 
     add_tooltip(movie_tooltip, "hover") 
    }) 
    vis %>% bind_shiny("plot1") 
    observe({ 
    if(input$myBtn > 0){ 
     stopApp() 
    } 
    }) 
} 
ui <- fluidPage(
    ggvisOutput("plot1"), 
    actionButton("myBtn", "Press ME!") 
) 
shinyApp(ui = ui, server = server) 
ggplot(df, aes(x, y)) + geom_point() 

Это приводит иногда ошибку Graphics error: Plot rendering error но граф получить созданный ... А иногда граф не создается вообще.

Я понял, что после команды shinyApp также невозможно выполнить несколько действий.

Так, например, если добавить несколько участков, только первый получает (иногда) создано

ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 1") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 2") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 3") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 4") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 5") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 6") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 7") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 8") 
ggplot(df, aes(x, y)) + geom_point() + ggtitle("graph 9")