操作每列数据帧并返回

Question

tmp是一个数据框，我需要清理其中的每个列。

我用过：

 cleandata <- sapply(tmp, clean)

但我发现它不会返回数据帧而是返回列表。

我的清洁功能如下：

clean <- function(col){
 gsub("[\r\n]", " ...REPLACED........", col)
  }

如何使用干净的列恢复数据帧？

tmp中的数据快照：

 [28,] "fcgh@fghv.com" FALSE        FALSE 1000062780     
 [29,] List,0                       FALSE        FALSE 1000062780     
 [30,] Character,12                 FALSE        FALSE 1000062780     
 [31,] List,0                       FALSE        FALSE 1000062780     
 [32,] List,0                       FALSE        FALSE 1000062780     
 [33,] List,0                       FALSE        FALSE 1000062780   

有更多的行和列，但看起来像上面。