r 将Amazon S3中的RDS加载到磁盘和内存中

Posted 2021-05-24

load_rds_s3 <- function(object, bucket = "enerflows") {
  if (!file.exists(object)) {
    save_object(object,
                file = object,
                bucket = bucket)
  }
  readRDS(object)
}