#' ggplot app: Allows users to explore ggplot
#'
#'
#' @author :Daniel Kaplan (\email{kaplan@@macalester.edu})
#' ,Mengdie Wang(\email{mwang3@@macalester.edu})
#' and Jingjing Yang(\email{jyang1@@macalester.edu})
#' @keywords statistics
#' @examples
#' ggplotApp()
#' ggplotApp(display = "showcase") #if you want to display code
#'
#' @export
ggplotApp <- function(display = c("normal","showcase")){
display = match.arg(display)
appDir <- system.file("ggplotApp",package = "mosaicApps")
if (appDir == ""){
stop("Couldn't find example directory. Try reinstalling `mosaicApps`.",
call. = FALSE)
}
shiny::runApp(appDir, display.mode = display)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.