Nothing
sql <- function(query, tolower=TRUE, dots=TRUE, encoding="unknown", useBytes=TRUE, stringsAsFactors=FALSE, warn=-1,
debug=FALSE, ...)
{
## 1 Handle warnings and options
on.exit(suppressWarnings(dbUnloadDriver(dbDriver("Oracle"))))
osaf <- options(stringsAsFactors=stringsAsFactors)
on.exit(options(osaf), add=TRUE)
owarn <- options(warn=warn)
on.exit(options(owarn), add=TRUE)
## 2 Prepare query
if(file.exists(query))
query <- paste(readLines(query,encoding=encoding), collapse=" ") # read file into one string
query <- gsub("[ \f\n\r\t\v\240]+", " ", query, useBytes=useBytes) # single spaces
query <- gsub(";", "", query, useBytes=useBytes) # ROracle chokes on semicolons
if(debug)
return(query)
## 3 Run query
output <- dbGetQuery(dbConnect(dbDriver("Oracle"),...), query)
if(class(output) != "data.frame")
return(output)
## 4 Format output
attr(output,"row.names") <- seq_len(nrow(output)) # reduce storage size of row names
if(tolower)
names(output) <- tolower(names(output))
if(dots)
names(output) <- chartr("_", ".", names(output))
return(output)
}
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.