ui = fluidPage(theme = add_theme(getShinyOption('theme')),
add_css(),
sidebarLayout(
sidebarPanel(width = 5,
shinyAce::aceEditor(fontSize = 16,
wordWrap = T,
outputId = "code",
mode = "r",
theme = "github",
autoComplete = 'live',
height = '500px',
value =
"set.seed(NULL)
x <- rbinom(500,size = 15,p = .25)
hist(x,
col = 1,
border = 'orange',
breaks = 0:11,
main = '',
probability = T,
las = 1)"),
actionButton("eval", "Evaluate")),
mainPanel(plotOutput("output", height = '600px'), width = 7)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.