R/as.filename.R

`as.filename` <-
function(x,...)UseMethod("as.filename")
`as.filename.character` <-
function(x,...){
class(x) <- c("filename",class(x))
attr(x,'extras') <- list(...)
return(x)
}
`as.csv.filename` <-
function(x,...)UseMethod("as.csv.filename")
`as.csv.filename.character` <-
function(x,...){
class(x) <- c("csv.filename",class(x))
return(x)
}

Try the metrumrg package in your browser

Any scripts or data that you put into this service are public.

metrumrg documentation built on May 2, 2019, 5:55 p.m.