# NOT RUN {
if (interactive()) {
ui <- fluidPage(
dataInputUI("input-1"),
dataOutputUI("output-1"),
dataEditUI("edit-1")
)
server <- function(input, output, session) {
data_to_edit <- dataInputServer("input-1")
data_edit <- dataEditServer("edit-1",
data = data_to_edit
)
dataOutputServer("output-1",
data = data_edit
)
}
shinyApp(ui, server)
}
# }
Run the code above in your browser using DataLab