shiny app 11

ui = fluidPage(
  titlePanel("TABLE"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("num", "integer", 1, 2000, 1,
                  step = 1, animate =
                    animationOptions(interval=400, loop=TRUE))),
    mainPanel(
      tableOutput("prod")
    )) )

server <- function(input, output) {
  output$prod <- renderPrint({ x<-input$num
  for(i in 1:10){
    a=x*i
    cat(x,"x",i,"=",a,"<br>")
  }})}

shinyApp(ui = ui, server = server)