From b1f19ed7e9b9918ca04cb584e16aa5369e550ff3 Mon Sep 17 00:00:00 2001
From: Yu ISHIKAWA <yuu.ishikawa@gmail.com>
Date: Wed, 22 Jul 2015 10:00:30 +0900
Subject: [PATCH] Add a validate statement for local SparkR

---
 dev/lint-r.R | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/dev/lint-r.R b/dev/lint-r.R
index 9b6352debbb53..6060a5679e1db 100644
--- a/dev/lint-r.R
+++ b/dev/lint-r.R
@@ -24,9 +24,12 @@ if ("lintr" %in% row.names(installed.packages())  == FALSE) {
   devtools::install_github("jimhester/lintr")
 }
 
-# NOTE: You should install SparkR with `R/install-dev.sh` before running this script.
 library(lintr)
+library(methods)
 library(testthat)
-library(SparkR, lib.loc = file.path(SPARK_ROOT_DIR, "R", "lib"))
+if (! library(SparkR, lib.loc = file.path(SPARK_ROOT_DIR, "R", "lib"), logical.return = TRUE)) {
+  stop("You should install SparkR in a local directory with `R/instlal-dev.sh`.")
+}
+
 path.to.package <- file.path(SPARK_ROOT_DIR, "R", "pkg")
 lint_package(path.to.package, cache = FALSE)