table shiny

library(shiny)
fluidPage(
  titlePanel("Manish"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("num", "integer", 1, 20, 1,
         step = 1, animate =
 animationOptions(interval=400, loop=TRUE))),
    mainPanel(
      tableOutput("prod")
    ) ))
______________________________________________
function(input, output) {
  output$prod = renderPrint({ x=input$num
  for(i in 1:10){
    a=x*i
    cat(x,"x",i,"=",a,"<br>") } }) }