Running examples in ‘EmiStatR-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: input-class
> ### Title: Class '"input"'
> ### Aliases: input-class input EmiStatR,input-method
> ### Keywords: classes
> 
> ### ** Examples
> 
> showClass("input")
Class "input" [package "EmiStatR"]

Slots:
                                                                            
Name:        spatial          zero        folder  folderOutput         cores
Class:       numeric       numeric     character     character       numeric
                                                                            
Name:             ww           inf            rw            P1            st
Class:          list          list          list    data.frame          list
                                                                            
Name:     pe.ts.file pe.daily.file     pe.weekly   pe.seasonal    qs.ts.file
Class:     character     character          list          list     character
                                                              
Name:  qs.daily.file     qs.weekly   qs.seasonal        export
Class:     character          list          list       numeric
> 
> ## running EmiStatR with default input
> library("EmiStatR")
> 
> ## running EmiStatR with user defined input
> data("Esch_Sure2010")
> 
> P1 <- Esch_Sure2010[1:1000,]  # selecting just the first 1,000 rows
> station <- "Esch-sur-Sure"
> 
> # defining estructures E1
> E1 <- list(id = 1, ns = "FBH Goesdorf", nm = "Goesdorf", nc = "Obersauer", numc = 1, 
+            use = "R/I", Atotal = 36, Aimp = 25.2, Cimp = 0.80, Cper = 0.30,
+            tfS = 1, pe = 650, Qd = 5, 
+            Dd = 0.15, Cd = 0.18, V = 190, lev.ini = 0.10,
+            lev2vol = list(lev = c(.06, 1.10, 1.30, 3.30), 
+                           vol = c(0, 31, 45, 190))
+            )
> 
> # defining Input objet
> input.user <- input(spatial = 0, zero = 1e-5, folder = system.file("shiny", package = "EmiStatR"),
+                     folderOutput = system.file("shiny", package = "EmiStatR"), cores = 1,
+                     ww = list(qs = 150, CODs = 104, NH4s = 4.7), 
+                     inf = list(qf= 0.04, CODf = 0, NH4f =0),
+                     rw = list(CODr = 0, NH4r = 0, stat = station), 
+                     P1 = P1, st = list(E1=E1), export = 1)
> 
> str(input.user)
Formal class 'input' [package "EmiStatR"] with 19 slots
  ..@ spatial      : num 0
  ..@ zero         : num 1e-05
  ..@ folder       : chr "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/EmiStatR/shiny"
  ..@ folderOutput : chr "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/EmiStatR/shiny"
  ..@ cores        : num 1
  ..@ ww           :List of 3
  .. ..$ qs  : num 150
  .. ..$ CODs: num 104
  .. ..$ NH4s: num 4.7
  ..@ inf          :List of 3
  .. ..$ qf  : num 0.04
  .. ..$ CODf: num 0
  .. ..$ NH4f: num 0
  ..@ rw           :List of 3
  .. ..$ CODr: num 0
  .. ..$ NH4r: num 0
  .. ..$ stat: chr "Esch-sur-Sure"
  ..@ P1           :'data.frame':	1000 obs. of  2 variables:
  .. ..$ time  : Factor w/ 52560 levels "2010-01-01 00:00:00",..: 1 2 3 4 5 6 7 8 9 10 ...
  .. ..$ P [mm]: num [1:1000] 0 0 0 0 0 0 0 0 0 0 ...
  ..@ st           :List of 1
  .. ..$ E1:List of 18
  .. .. ..$ id     : num 1
  .. .. ..$ ns     : chr "FBH Goesdorf"
  .. .. ..$ nm     : chr "Goesdorf"
  .. .. ..$ nc     : chr "Obersauer"
  .. .. ..$ numc   : num 1
  .. .. ..$ use    : chr "R/I"
  .. .. ..$ Atotal : num 36
  .. .. ..$ Aimp   : num 25.2
  .. .. ..$ Cimp   : num 0.8
  .. .. ..$ Cper   : num 0.3
  .. .. ..$ tfS    : num 1
  .. .. ..$ pe     : num 650
  .. .. ..$ Qd     : num 5
  .. .. ..$ Dd     : num 0.15
  .. .. ..$ Cd     : num 0.18
  .. .. ..$ V      : num 190
  .. .. ..$ lev.ini: num 0.1
  .. .. ..$ lev2vol:List of 2
  .. .. .. ..$ lev: num [1:4] 0.06 1.1 1.3 3.3
  .. .. .. ..$ vol: num [1:4] 0 31 45 190
  ..@ pe.ts.file   : chr ""
  ..@ pe.daily.file: chr "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/EmiStatR/shiny/EmiStatR_inputCSO/inputCSO/pe_factor.csv"
  ..@ pe.weekly    :List of 7
  .. ..$ mon: num 1
  .. ..$ tue: num 1
  .. ..$ wed: num 1
  .. ..$ thu: num 1
  .. ..$ fri: num 1
  .. ..$ sat: num 1
  .. ..$ sun: num 1
  ..@ pe.seasonal  :List of 12
  .. ..$ jan: num 1
  .. ..$ feb: num 1
  .. ..$ mar: num 1
  .. ..$ apr: num 1
  .. ..$ may: num 1
  .. ..$ jun: num 1
  .. ..$ jul: num 1
  .. ..$ aug: num 1
  .. ..$ sep: num 1
  .. ..$ oct: num 1
  .. ..$ nov: num 1
  .. ..$ dec: num 1
  ..@ qs.ts.file   : chr ""
  ..@ qs.daily.file: chr "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/EmiStatR/shiny/EmiStatR_inputCSO/inputCSO/qs_factor.csv"
  ..@ qs.weekly    :List of 7
  .. ..$ mon: num 1
  .. ..$ tue: num 1
  .. ..$ wed: num 1
  .. ..$ thu: num 1
  .. ..$ fri: num 1
  .. ..$ sat: num 1
  .. ..$ sun: num 1
  ..@ qs.seasonal  :List of 12
  .. ..$ jan: num 1
  .. ..$ feb: num 1
  .. ..$ mar: num 1
  .. ..$ apr: num 1
  .. ..$ may: num 1
  .. ..$ jun: num 1
  .. ..$ jul: num 1
  .. ..$ aug: num 1
  .. ..$ sep: num 1
  .. ..$ oct: num 1
  .. ..$ nov: num 1
  .. ..$ dec: num 1
  ..@ export       : num 1
> 
> # invoking EmiStatR
> sim <- EmiStatR(input.user)
Error in setwd(dir.output) : cannot change working directory
Calls: EmiStatR -> EmiStatR -> setwd
Execution halted