R/launch.R

Defines functions app_rfm_analysis app_logistic_regression app_linear_regression app_inference app_vistributions app_descriptive app_visualizer

Documented in app_descriptive app_inference app_linear_regression app_logistic_regression app_rfm_analysis app_vistributions app_visualizer

#' @title Visualization 
#' @description Launches the visualizer app.
#' @examples
#' \dontrun{
#' app_visualizer()
#' }
#' @export
#'
app_visualizer <- function() {

	check_suggests(shiny)
	check_suggests(shinyBS)
	check_suggests(shinythemes)
	check_suggests(descriptr)
	check_suggests(dplyr)
	check_suggests(ggplot2)
	check_suggests(plotly)
	check_suggests(rbokeh)
	check_suggests(highcharter)
	check_suggests(purrr)
	check_suggests(tidyr)
	check_suggests(tibble)
	check_suggests(readxl)
	check_suggests(readr)
	check_suggests(jsonlite)
	check_suggests(magrittr)
	check_suggests(tools)
	check_suggests(lubridate)
	check_suggests(scales)
	check_suggests(stringr)

  message('Highcharts (www.highcharts.com) is a Highsoft software product which is not free for commercial and Governmental use')
  shiny::runApp(appDir = system.file("app-visualize", package = "xplorerr"))
}

#' @title Descriptive Statistics
#' @description Launches the descriptive statistics app.
#' @examples
#' \dontrun{
#' app_descriptive()
#' }
#' @export
#'
app_descriptive <- function() {

	check_suggests('descriptr')
	check_suggests('haven')
	check_suggests('jsonlite')
	check_suggests('readr')
	check_suggests('readxl')
	check_suggests('shinyBS')
	check_suggests('shinycssloaders')
	check_suggests('shinythemes')
	check_suggests('stringr')
	check_suggests('lubridate')

  shiny::runApp(appDir = system.file("app-descriptr", package = "xplorerr"))

}

#' @title Visualize distributions
#' @description Launches app for visualizing probability distributions.
#' @examples
#' \dontrun{
#' app_descriptive()
#' }
#' @export
#'
app_vistributions <- function() {

	check_suggests('vistributions')
	check_suggests('shinyBS')
	check_suggests('shinycssloaders')
	check_suggests('shinythemes')

  shiny::runApp(appDir = system.file("app-vistributions", package = "xplorerr"))

}


#' @title Inferential Statistics
#' @description Launches the inferential statistics app.
#' @examples
#' \dontrun{
#' app_inference()
#' }
#' @export
#'
app_inference <- function() {

	check_suggests('inferr')
	check_suggests('descriptr')
	check_suggests('jsonlite')
	check_suggests('haven')
	check_suggests('lubridate')
	check_suggests('readr')
	check_suggests('readxl')
	check_suggests('shinyBS')
	check_suggests('shinycssloaders')
	check_suggests('shinythemes')
	check_suggests('stringr')

  shiny::runApp(appDir = system.file("app-inferr", package = "xplorerr"))

}

#' @title Linear Regression
#' @description Launches the linear regression app.
#' @examples
#' \dontrun{
#' app_linear_regression()
#' }
#' @export
#'
app_linear_regression <- function() {

	check_suggests('olsrr')
	check_suggests('caret')
	check_suggests('descriptr')
	check_suggests('jsonlite')
	check_suggests('haven')
	check_suggests('lubridate')
	check_suggests('readr')
	check_suggests('readxl')
	check_suggests('scales')
	check_suggests('shinyBS')
	check_suggests('shinycssloaders')
	check_suggests('shinythemes')

  shiny::runApp(appDir = system.file("app-olsrr", package = "xplorerr"))

}

#' @title Logistic Regression
#' @description Launches the logistic regression app.
#' @examples
#' \dontrun{
#' app_logistic_regression()
#' }
#' @export
#'
app_logistic_regression <- function() {

	check_suggests('blorr')
	check_suggests('descriptr')
	check_suggests('jsonlite')
	check_suggests('haven')
	check_suggests('lubridate')
	check_suggests('readr')
	check_suggests('readxl')
	check_suggests('shinyBS')
	check_suggests('shinycssloaders')
	check_suggests('shinythemes')
	check_suggests('stringr')
	check_suggests('tidyr')

  shiny::runApp(appDir = system.file("app-blorr", package = "xplorerr"))

}

#' @title RFM Analysis
#' @description Launches the RFM analyssi app.
#' @examples
#' \dontrun{
#' app_rfm_analysis()
#' }
#' @export
#'
app_rfm_analysis <- function() {

	check_suggests('rfm')
	check_suggests('haven')
	check_suggests('jsonlite')
	check_suggests('readr')
	check_suggests('readxl')
	check_suggests('shinyBS')
	check_suggests('shinycssloaders')
	check_suggests('shinythemes')
	check_suggests('stringr')
	check_suggests('DT')

  shiny::runApp(appDir = system.file("app-rfm", package = "xplorerr"))

}

Try the xplorerr package in your browser

Any scripts or data that you put into this service are public.

xplorerr documentation built on Feb. 28, 2019, 5:05 p.m.