将Shiny应用程序中的用户输入（包括一些列表）导出到文件中，并稍后加载

Question

我正在尝试完成与what this poster asked类似的事情。

但是，用户能够输入的一些值是列表。
例如，输入值input$file1具有子值input$file1$name，
 input$file1$size，
 input$file1$type和
input$file1$datatype。

此外，我有两个输入input$remove和input$force，它们可以从selectInput字段中获取字符串列表。

最后，我用来保存用户输入的功能是保存操作按钮，并以奇数格式保存。使用加载操作按钮时，这些值无法正确加载。这是我用来尝试此操作的代码示例：

  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')
  })  

在此先感谢您的帮助！