Example for https://stackoverflow.com/questions/35235435/shiny-dynamically-load-rdata-file/35235647

Shiny example

## 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/")