Merge pull request #184 from Kaggle/lsp-dependencies

Install dependencies for LSP-based autocompletion in R kernels.

Author: jplotts

Dockerfile

@@ -51,6 +51,7 @@ RUN apt-get install -y libzmq3-dev default-jdk && \
     touch /root/.jupyter/jupyter_nbconvert_config.py && touch /root/.jupyter/migrated && \
     # papermill can replace nbconvert for executing notebooks
     pip install papermill && \
+    pip install jupyterlab-lsp && \
     /tmp/clean-layer.sh
 
 # Miniconda

package_installs.R

@@ -57,4 +57,6 @@ library(torch)
 install_torch()
 
 # The R Keras package must be reinstalled after installing it in the python virtualenv.
-install_version("keras", version = "2.6.0.0", ask=FALSE)
+install_version("keras", version = "2.6.0.0", ask=FALSE)
+
+install.packages(c('collections', 'languageserver'), dependencies=FALSE)

tests/test_jupyterlab-lsp.R

@@ -0,0 +1,21 @@
+context("jupyterlab-lsp")
+
+library(httr)
+
+test_that("jupyterlab-lsp is installed", {
+	expect_error({
+		# Start a jupyterlab server and wait for it to initialize
+		system(
+			"/usr/local/bin/jupyter server --allow-root --no-browser --port 9999 --notebook-dir /tmp",
+			wait=FALSE)
+		Sys.sleep(5)
+
+		# Ping LSP endpoint, verify 200 response
+		response <- GET("http://127.0.0.1:9999/lsp/status")
+		expect_equal(status_code(response), 200)
+
+		# Kill the server
+		pid <- system("ps -ef | grep jupyter | grep 9999 | awk '{print $2}'")
+		tools::pskill(pid)
+	}, NA) # expect no error to be thrown
+})

tests/test_languageserver.R

@@ -0,0 +1,19 @@
+context("languageserver")
+
+test_that("languageserver responds to commands", {
+    expect_error({
+        result <- system(
+            "R -e 'languageserver::run()'",
+            input="Content-Length: 38\n\n{ \"id\": \"123\", \"method\": \"shutdown\" }\n",
+            intern=TRUE)
+
+        found_response <- FALSE
+        for (line in result) {
+            if (grepl("\"id\":\"123\"", line, fixed=TRUE) & grepl("\"result\":[]", line, fixed=TRUE)) {
+                found_response <- TRUE
+            }
+        }
+
+        expect_true(found_response)
+	}, NA) # expect no error to be thrown
+})