#' startDEBrowser
#'
#' Starts the DEBrowser to be able to run interactively.
#'
#' @note \code{startDEBrowser}
#' @return the app
#'
#' @examples
#' startDEBrowser()
#'
#' @export
#'
startDEBrowser <- function(){
if (interactive()) {
#the upload file size limit is 30MB
options( shiny.maxRequestSize = 30 * 1024 ^ 2, warn = -1)
addResourcePath(prefix = "demo", directoryPath =
system.file("extdata", "demo",
package = "debrowser"))
addResourcePath(prefix = "www", directoryPath =
system.file("extdata", "www",
package = "debrowser"))
environment(deServer) <- environment()
#shinyAppDir(system.file(package="debrowser"))
app <- shinyApp( ui = shinyUI(deUI),
server = shinyServer(deServer))
runApp(app)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.