Nothing
#' Perform the required operations for displaying interactive plot generator.
#'
#' Time-stamp: <2017-08-10 17:07:41 Graham Williams>
#'
executeExploreGGRaptR <- function(df_name, df)
{
# Check prerequisite packages.
if (!packageIsAvailable("ggraptR",
Rtxt("interactively generate ggplot2 graphics")))
return(FALSE)
startLog(Rtxt("Display interactive plot builder."))
df_file <- 'ggraptr_df.rds'
saveRDS(df, file=df_file)
r_expr <- sprintf(
'%s <- readRDS(\'%s\');file.remove(\'%s\');ggraptR::ggraptR(%s, port=5002)',
df_name, df_file, df_file, df_name)
appendLog("Initiate the ggraptR application in a browser", r_expr)
system(sprintf('R -q --vanilla -e "%s"', r_expr), wait=F, intern=F)
return()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.