add return statement

markomi · markomi · commit 6abcbbbc75fc · 2020-02-06T08:33:42.000+01:00
diff --git a/R/fun_run_shiny.R b/R/fun_run_shiny.R
@@ -9,4 +9,5 @@ run_shiny <- function(){
     ## make resources available globally from non standard location
     addResourcePath("www", system.file("www", package = "shinysse"))
     shiny_app <- shinyApp(ui = app_ui, server = app_server)
+    return(shiny_app)
 }

Original file line number	Diff line number	Diff line change
`@@ -9,4 +9,5 @@ run_shiny <- function(){`
`9`	`9`	`## make resources available globally from non standard location`
`10`	`10`	`addResourcePath("www", system.file("www", package = "shinysse"))`
`11`	`11`	`shiny_app <- shinyApp(ui = app_ui, server = app_server)`
	`12`	`+ return(shiny_app)`
`12`	`13`	`}`