tests/testthat/elementsApp/app.R

In mYstar/easyshiny: Simple Set of Functions to Fill a Shiny Template

library(shiny)
library(shinyBS)
library(easyshiny)
library(ggplot2)

es_init()
es_renderText({'This is a simple test if elements are inserted into the app.'})
es_add_input(textInput, inputId = 'title', label = 'Title:')
es_renderPlot({qplot(mtcars$mpg) + ggtitle(label = input$title)})
es_start(title = 'elementsApp')