tests/testthat/shiny-outliers/app.R

In disaggR: Two-Steps Benchmarks for Time Series Disaggregation

library(shiny)
library(disaggR)
ui <- disaggR:::reView_ui()

server <-  disaggR:::reView_server(twoStepsBenchmark(turnover,construction,
                                                     outliers = list(AO2005 = rep(0.1,12L))),
                                   as.symbol("turnover"),as.symbol("construction"),
                                   TRUE)

shinyApp(ui = ui, server = server)