# NOT RUN {
library(shiny)
library(ggplot2)
library(editData)
library(moonBook)
library(readr)
if(interactive()){
ui=fluidPage(
pptxListInput("pptxlist")
)
server=function(input,output,session){
mydf=callModule(pptxList,"pptxlist")
}
shinyApp(ui,server)
}
# }
Run the code above in your browser using DataLab