f1 <- function(){ var.list <- ls(.GlobalEnv) for(i in var.list){ cat(i, "=") eval(parse(text = paste0("dput(", i, ")"))) } } f1() まとめて変数も関数もデータフレームもコピペできる形に出力