# NOT RUN {
library(shiny)
library(shinyAce)
ui = shinyUI(fluidPage(fluidRow(
column(
width=4
, aceEditor("ace", selectionId = "selection", value="digraph {A;}")
),
column(
width = 6
, grVizOutput('diagram' )
)
)))
server = function(input, output) {
output$diagram <- renderGrViz({
grViz(
input$ace
)
})
}
shinyApp(ui = ui, server = server)
# }
Run the code above in your browser using DataCamp Workspace