ui = fluidPage(titlePanel('To change the plot update the code and click "Evaluate" '),
theme = add_theme(getShinyOption('theme')),
add_css(),
sidebarLayout(
sidebarPanel(width = 5,
shinyAce::aceEditor(fontSize = 16,
wordWrap = T,
outputId = "likeplot2",
mode = "r",
theme = "github",
height = "450px",
value = "
par(mar = c(4,4,1,1))
curve(dexp(x, rate = 1),
lwd = 2, col = 1,
xlim = c(0,5),
ylim = range(0,.9),
xlab = 'Time (t)',
ylab = 'f(t)',
las = 1,
cex.lab = 1.5,
cex.axis = 1.5)
curve(dweibull(x, shape = 1.5), lwd = 2, col = 4, lty = 2, add = T)
points(x = c(0.2,0.2),
y = c(dexp(0.2, rate = 1), dweibull(0.2,shape = 1.5)),
cex = 1.5,
pch = 16,
col = 3)
text(x = c(0.1,0.1),
y = c(dweibull(0.2, shape = 1.5)+.005,
dexp(0.2, rate = 1)+.005),
labels = c(parse(text = paste('NA%<-%~',dweibull(0.2, shape = 1.5))),
parse(text = paste('NA%<-%~',dexp(0.2, rate = 1)))),
adj = -0.15,
cex = 1.5)
abline(v = 0.2, col = 3)
legend('topright',
c(parse(text = 'exp(theta==1)'),
parse(text = 'Weib(beta,theta==1.5,1)')),
lwd = 2,
col = c(1,4),
bty = 'n',
lty = c(1,2),
y.intersp = 1.5,
cex = 1.4)"),
actionButton("evallike2", "Evaluate")),
mainPanel(plotOutput('plotlike2', height = '600px'), width = 7)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.