ed04846e14
Clean out hundreds of `style: Commented code should be removed.` from lintr Like these: ``` /opt/spark-1.6.0-bin-hadoop2.6/R/pkg/R/DataFrame.R:513:3: style: Commented code should be removed. # sc <- sparkR.init() ^~~~~~~~~~~~~~~~~~~ /opt/spark-1.6.0-bin-hadoop2.6/R/pkg/R/DataFrame.R:514:3: style: Commented code should be removed. # sqlContext <- sparkRSQL.init(sc) ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ /opt/spark-1.6.0-bin-hadoop2.6/R/pkg/R/DataFrame.R:515:3: style: Commented code should be removed. # path <- "path/to/file.json" ^~~~~~~~~~~~~~~~~~~~~~~~~~~ ``` tried without export or rdname, neither work instead, added this `#' noRd` to suppress .Rd file generation also updated `family` for DataFrame functions for longer descriptive text instead of `dataframe_funcs`  this covers *most* of 'Commented code' but I left out a few that looks legitimate. Author: felixcheung <felixcheung_m@hotmail.com> Closes #9463 from felixcheung/rlintr.
48 lines
1.7 KiB
R
48 lines
1.7 KiB
R
#
|
|
# Licensed to the Apache Software Foundation (ASF) under one or more
|
|
# contributor license agreements. See the NOTICE file distributed with
|
|
# this work for additional information regarding copyright ownership.
|
|
# The ASF licenses this file to You under the Apache License, Version 2.0
|
|
# (the "License"); you may not use this file except in compliance with
|
|
# the License. You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
#
|
|
|
|
.First <- function() {
|
|
home <- Sys.getenv("SPARK_HOME")
|
|
.libPaths(c(file.path(home, "R", "lib"), .libPaths()))
|
|
Sys.setenv(NOAWT=1)
|
|
|
|
# Make sure SparkR package is the last loaded one
|
|
old <- getOption("defaultPackages")
|
|
options(defaultPackages = c(old, "SparkR"))
|
|
|
|
sc <- SparkR::sparkR.init()
|
|
assign("sc", sc, envir=.GlobalEnv)
|
|
sqlContext <- SparkR::sparkRSQL.init(sc)
|
|
sparkVer <- SparkR:::callJMethod(sc, "version")
|
|
assign("sqlContext", sqlContext, envir=.GlobalEnv)
|
|
cat("\n Welcome to")
|
|
cat("\n")
|
|
cat(" ____ __", "\n")
|
|
cat(" / __/__ ___ _____/ /__", "\n")
|
|
cat(" _\\ \\/ _ \\/ _ `/ __/ '_/", "\n")
|
|
cat(" /___/ .__/\\_,_/_/ /_/\\_\\")
|
|
if (nchar(sparkVer) == 0) {
|
|
cat("\n")
|
|
} else {
|
|
cat(" version ", sparkVer, "\n")
|
|
}
|
|
cat(" /_/", "\n")
|
|
cat("\n")
|
|
|
|
cat("\n Spark context is available as sc, SQL context is available as sqlContext\n")
|
|
}
|