add_ui: Add the UI of one app within the UI of another app

Description

Sources a ui.R file before parsing and evaluating its contents in a specified environment

Usage

add_ui(app, path)

Arguments

app

Name of the app from which the content of the ui.R will be pulled

path

Path to a directory containing the app from which the content of the ui.R will be pulled

Value

A list of length 2

head

A sub list containing the HTML content within the <head> tag

body

A sub list containing the HTML content within the <body> tag

Details

Currently, this function can be used to insert an server into a navbarPage app. The types of apps that can be inserted are:

fluidPage
bootstrapPage
pageWithSidebar
basicPage
fixedPage

A server can be added as an entire tabPanel or as a row within within a tabPanel portion of a shiny app.

May be used with apps stored in packages other than teachingApps. However, apps are assumed be stored in the apps/ directory located at top level of the package.

Examples

Run this code

# NOT RUN {
## ui.R from app: 'maximum_likelihood'

ui_ml <- system.file('apps', 
                     'maximum_likelihood',
                     'server.R',
                     package = 'teachingApps') 
browseURL(ui_ml)

## ui.R from app: 'distribution_weibull'

ui_dw <- system.file('apps', 
                     'distribution_weibull',
                     'server.R',
                     package = 'teachingApps') 
browseURL(ui_dw)

# }