observeEvent(input$load,{

    if(!file.exists('inputs.RDS')) {return(NULL)}

    savedInputs <- readRDS('inputs.RDS')
    inputIDs      <- names(savedInputs)
    inputvalues   <- unlist(savedInputs)

    for (i in 1:length(savedInputs)) {
      session$sendInputMessage(inputIDs[i],  list(value=inputvalues[[i]]) )
    }
  })

  observeEvent(input$save,{
    saveRDS( reactiveValuesToList(input) , file = 'inputs.RDS')
  })