Nothing
# last modified 2020-05-11 by J. Fox
readSAS <- function(file, rownames=FALSE, stringsAsFactors=FALSE){
Data <- as.data.frame(haven::read_sas(file))
if (rownames){
check <- length(unique(col1 <- Data[[1]])) == nrow(Data)
if (!check) warning ("row names are not unique, ignored")
else {
rownames(Data) <- col1
Data[[1]] <- NULL
}
}
if (stringsAsFactors){
char.cols <- sapply(Data, class) == "character"
if (any(char.cols)){
for (col in names(Data)[char.cols]){
fac <- Data[, col]
fac[fac == ""] <- NA
Data[, col] <- as.factor(fac)
}
}
}
Data
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.