Nothing
library(shiny)
library(shinyjs)
shinyUI(fluidPage(
title = "Demo of ggExtra::ggMarginal()",
tags$head(includeCSS(file.path('www', 'style.css'))),
useShinyjs(),
fluidRow(id = "title-row",
column(12,
h1("Demo of",
a("ggExtra::ggMarginal()", href = "https://github.com/daattali/ggExtra")
),
h4("ggMarginal lets you add marginal plots to ggplot2 (finally!)"),
h4(tags$i("Source code for this app is",
a("on GitHub", href = "https://github.com/daattali/ggExtra/tree/master/inst/examples/ggMarginal"),
HTML("•"), "by", a("Dean Attali", href = "http://deanattali.com")))
)
),
div(id = "loading-content", h2("Loading...")),
fluidRow(id = "app-content",
column(3, wellPanel(
class = "settings",
h3(class = "settings-title", "Main plot"),
uiOutput("dataset_select"),
uiOutput("x_var_select"),
uiOutput("y_var_select"),
sliderInput("font_size", "Font size", 0, 50, 15, 1),
actionButton("sal", "Salir")
)),
column(3, wellPanel(
class = "settings",
h3(class = "settings-title", "Marginal plots"),
checkboxInput("show_marginal", "Show marginal plots", TRUE),
div(id = "marginal-settings",
selectInput("type", NULL, c("density", "histogram", "boxplot")),
selectInput("margins", "Which margins?", c("both", "x", "y")),
conditionalPanel(
condition = "input.margins != 'y'",
selectInput("xtrans", "X axis transformation", c("none", "log","reverse"))
),
conditionalPanel(
condition = "input.margins != 'x'",
selectInput("ytrans", "Y axis transformation", c("none", "log","reverse"))
),
sliderInput("size",
"Size ratio of main plot:marginal plots",
1, 5, 5, 0.5),
shinyjs::colourInput("col", "Marginal plot colour", "red", showColour = "background"),
conditionalPanel(
condition = "input.type != 'density'",
shinyjs::colourInput("fill", "Marginal plot fill colour", "orange", showColour = "background")
)
)
)),
column(6,
plotOutput("plot"),
pre(id = "code")
)
)
))
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.