# !formatR
library(GWalkR)
library(shiny)
data(mtcars)
app <- shinyApp(
ui = fluidPage(
titlePanel("Explore the data here: "),
gwalkrOutput("mygraph")
),
server = function(input, output, session) {
output$mygraph = renderGwalkr(
gwalkr(mtcars)
)
}
)
if (interactive()) app
Run the code above in your browser using DataLab