## Save as Server.R
library("shiny")

#x = USArrests
#save(x, file="/tmp/tmp.RData")
server = function(input, output){
  load("/tmp/tmp.RData")
  output$table = output$table1 <- renderTable({x})
}


## Save as ui.R
library("shiny")
ui = fluidPage(
  fluidRow(
    column(3, tableOutput("table"))
  )
)

## To run
shiny::runApp("/tmp/")