Add wrapper to Shiny in R package

Thank you Thierry. I'm trying to following your suggestion in the example
below, but getting:

Error in get("xs", envir = my.env) : object 'my.env' not found.


library(shiny)
library(shinydashboard)

myApp <- function(x, ...) {

   xs <- scale(x)

   my.env <- new.env()
   assign("xs", xs, envir = my.env)

   shiny::runApp(app)

}

app = shinyApp(

   ui = fluidPage(
     sidebarLayout(
       sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
       mainPanel(plotOutput("hist"))
     )
   ),
   server = function(input, output) {

     get("xs", envir = my.env)

     output$hist <- renderPlot(
       hist(xs, breaks = input$n,
            col = "skyblue", border = "white")
     )
   }
)

myApp(rnorm(100))

Axel.


On Thu, Sep 21, 2017 at 11:13 AM, Thierry Onkelinx <thierry.onkelinx at inbo.be

wrote:

Dear Axel,

I've used environment for such problems.

assign("xs", xs, envir = my.env) in the myApp function
get("xs", envir = my.env) in the server function

Best regards,


ir. Thierry Onkelinx
Statisticus/ Statiscian

Vlaamse Overheid / Government of Flanders
INSTITUUT VOOR NATUUR- EN BOSONDERZOEK / RESEARCH INSTITUTE FOR NATURE
AND FOREST
Team Biometrie & Kwaliteitszorg / Team Biometrics & Quality Assurance
thierry.onkelinx at inbo.be
Kliniekstraat 25, B-1070 Brussel
www.inbo.be

////////////////////////////////////////////////////////////
///////////////////////////////
To call in the statistician after the experiment is done may be no
more than asking him to perform a post-mortem examination: he may be
able to say what the experiment died of. ~ Sir Ronald Aylmer Fisher
The plural of anecdote is not data. ~ Roger Brinner
The combination of some data and an aching desire for an answer does
not ensure that a reasonable answer can be extracted from a given body
of data. ~ John Tukey
////////////////////////////////////////////////////////////
///////////////////////////////


Van 14 tot en met 19 december 2017 verhuizen we uit onze vestiging in
Brussel naar het Herman Teirlinckgebouw op de site Thurn & Taxis.
Vanaf dan ben je welkom op het nieuwe adres: Havenlaan 88 bus 73, 1000
Brussel.

////////////////////////////////////////////////////////////
///////////////////////////////



2017-09-21 15:02 GMT+02:00 Axel Urbiz <axel.urbiz at gmail.com>:

Dear List,

I'm trying to add a function that calls a Shiny App in my R package. The
issue is that within my function, I'm creating objects that I'd like to
pass to the app. For instance, from the example below, I'm getting
"Error: object
'xs' not found". How can I pass "xs" explicitly to shinyApp()?


*Under R directory:*

myApp <- function(x, ...) {
   require(shiny)

   xs <- scale(x)

   shiny::runApp(appDir = system.file("application", package =
"my_package"), ...)

}

*Under inst/application directory a file named app.R with the following
content:*

shinyApp(
   ui = fluidPage(
     sidebarLayout(
       sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
       mainPanel(plotOutput("hist"))
     )
   ),
   server = function(input, output) {
     output$hist <- renderPlot(
       hist(xs, breaks = input$n,
            col = "skyblue", border = "white")
     )
   }
)

Thank you,
Axel.

         [[alternative HTML version deleted]]

posting-guide.html

	[[alternative HTML version deleted]]