## 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)
# ## End(Not run)
Run the code above in your browser using DataLab