1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Export March 2017
# Wrapper for the 'export' function in the 'rio' package that adds automatic support for row names by
# converting the row names to the left-most column of the saved data file.
# 3/15/2017: S. Weisberg
# 11/2/2021: A. Zeileis, check for rio availability (so that rio can be in Suggests only)
Export <- function(x, file, format, ..., keep.row.names){
if(!requireNamespace("rio")) stop("Export() relies on rio::export(), please install package 'rio'")
stopifnot(is.data.frame(x))
if(!missing(keep.row.names)){
name <- if(is.logical(keep.row.names) & keep.row.names==TRUE) "id" else keep.row.names
if(name != FALSE){
if(name %in% names(x))
stop("There is a column named ", name, " already!")
x <- cbind(rownames(x), x)
names(x)[1] <- name
attr(x, "row.names") <- 1:dim(x)[1]
}}
rio::export(x, file, format, ...)
}
|
