Nothing
makeDataFrame <- function(dat, name = "dat", minRow = 1, onlyWarn=TRUE) {
if(inherits(dat, c("tbl", "data.table", "matrix", "list"))) {
old_classes <- paste(class(dat), collapse="', '")
message("Convert '", name, "' of class '", old_classes, "' to a data.frame.")
dat <- data.frame ( dat, stringsAsFactors = FALSE)
}
if(!inherits(dat, c("data.frame"))) {
stop("'", name, "' is neither a 'data.frame', 'matrix', 'tibble' or 'data.table' object.")
}
if(nrow(dat) < minRow) {
if(onlyWarn) {
warning("'",name,"' has only ",nrow(dat), " rows.")
}
else {
stop("'",name,"' has only ",nrow(dat), " rows.")
}
}
return(dat)}
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.