0001 #
0002 # Licensed to the Apache Software Foundation (ASF) under one or more
0003 # contributor license agreements. See the NOTICE file distributed with
0004 # this work for additional information regarding copyright ownership.
0005 # The ASF licenses this file to You under the Apache License, Version 2.0
0006 # (the "License"); you may not use this file except in compliance with
0007 # the License. You may obtain a copy of the License at
0008 #
0009 # http://www.apache.org/licenses/LICENSE-2.0
0010 #
0011 # Unless required by applicable law or agreed to in writing, software
0012 # distributed under the License is distributed on an "AS IS" BASIS,
0013 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
0014 # See the License for the specific language governing permissions and
0015 # limitations under the License.
0016 #
0017
0018 argv <- commandArgs(TRUE)
0019 SPARK_ROOT_DIR <- as.character(argv[1])
0020 LOCAL_LIB_LOC <- file.path(SPARK_ROOT_DIR, "R", "lib")
0021
0022 # Checks if SparkR is installed in a local directory.
0023 if (! library(SparkR, lib.loc = LOCAL_LIB_LOC, logical.return = TRUE)) {
0024 stop("You should install SparkR in a local directory with `R/install-dev.sh`.")
0025 }
0026
0027 # Installs lintr from Github in a local directory.
0028 # NOTE: The CRAN's version is too old to adapt to our rules.
0029 if ("lintr" %in% row.names(installed.packages()) == FALSE) {
0030 devtools::install_github("jimhester/lintr@v2.0.0")
0031 }
0032
0033 library(lintr)
0034 library(methods)
0035 library(testthat)
0036 path.to.package <- file.path(SPARK_ROOT_DIR, "R", "pkg")
0037 lint_package(path.to.package, cache = FALSE)
