Implement alias loadDF() as a new function.

R/pkg/R/SQLContext.R

@@ -446,15 +446,14 @@ dropTempTable <- function(sqlCtx, tableName) {
 #' @param source the name of external data source
 #' @return DataFrame
 #' @export
-#' @aliases loadDF
 #' @examples
 #'\dontrun{
 #' sc <- sparkR.init()
 #' sqlCtx <- sparkRSQL.init(sc)
 #' df <- read.df(sqlCtx, "path/to/file.json", source = "json")
 #' }
 
-read.df <- loadDF <- function(sqlCtx, path = NULL, source = NULL, ...) {
+read.df <- function(sqlCtx, path = NULL, source = NULL, ...) {
   options <- varargsToEnv(...)
   if (!is.null(path)) {
     options[['path']] <- path
@@ -463,6 +462,13 @@ read.df <- loadDF <- function(sqlCtx, path = NULL, source = NULL, ...) {
   dataFrame(sdf)
 }
 
+#' @aliases loadDF
+#' @export
+
+loadDF <- function(sqlCtx, path = NULL, source = NULL, ...) {
+  read.df(sqlCtx, path, source, ...)
+}
+
 #' Create an external table
 #'
 #' Creates an external table based on the dataset in a data source,