publicar - Cómo salir de una aplicación brillante y devolver un valor

shiny r tutorial

Question

La página de ayuda de runApp dice:

Ejecuta una aplicación brillante. Esta función normalmente no regresa; interrumpe R para detener la aplicación (generalmente presionando Ctrl + C o Esc).

¿"Normalmente" significa "siempre"? ¿Hay alguna manera de agregar un botón "salir" y devolver un valor a la sesión R que llamó a runApp ? Incluso si es un truco, esta sería una funcionalidad conveniente. He intentado buscar pero no he encontrado nada. También miré la fuente de runApp , la última línea es return(.globals$retval) , por lo que parece que debería haber una forma.

¿Puedo configurar .globals$retval directamente y luego llamar a algún tipo de interrupción? ¿Hay una función en el paquete shiny que hace esto?

Answer 1

Hay una función stopApp que detiene la aplicación en ejecución y devuelve un valor opcional:

myValue <- runApp(list(
ui = bootstrapPage(
numericInput(''n'', ''Number of obs'', 100),
actionButton("myBtn", "Press ME!"),
plotOutput(''plot'')
),
server = function(input, output, session) {
output$plot <- renderPlot({ hist(runif(input$n)) });
observe({
if(input$myBtn > 0){
stopApp(7)
}
})
}
))

Al detenerse:

> myValue
[1] 7