I am just wondering if it is possible to create a Shiny App within an R function (i.e., the environment