if (interactive()) {
library(shiny)
library(ggplot2)
server <- function(input, output) {
output$myplot <- render_maidr({
ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
geom_bar(stat = "identity")
})
}
}
Run the code above in your browser using DataLab