グローバル環境のデータたちをまとめてコピペできる形にtext化

f1 <- function(){
      var.list <- ls(.GlobalEnv)
      for(i in var.list){
            cat(i, "=")
            eval(parse(text = paste0("dput(", i, ")")))
      }
      
}

f1()

まとめて変数も関数もデータフレームもコピペできる形に出力