Keep server capabilities in LanguageServer instance

renkun-ken · renkun-ken · commit 521ae106b70b · 2020-10-08T07:02:38.000+08:00
diff --git a/R/handlers-general.R b/R/handlers-general.R
@@ -22,6 +22,7 @@ on_initialize <- function(self, id, params) {
     server_capabilities <- merge_list(
         server_capabilities,
         getOption("languageserver.server_capabilities"))
+    self$ServerCapabilities <- server_capabilities
     self$deliver(Response$new(id = id, result = list(capabilities = server_capabilities)))
 }
 
diff --git a/R/languageserver.R b/R/languageserver.R
@@ -27,6 +27,7 @@ LanguageServer <- R6::R6Class("LanguageServer",
         rootPath = NULL,
         initializationOptions = NULL,
         ClientCapabilities = NULL,
+        ServerCapabilities = NULL,
 
         diagnostics_task_manager = NULL,
         parse_task_manager = NULL,

Original file line number	Diff line number	Diff line change
`@@ -22,6 +22,7 @@ on_initialize <- function(self, id, params) {`
`22`	`22`	`server_capabilities <- merge_list(`
`23`	`23`	`server_capabilities,`
`24`	`24`	`getOption("languageserver.server_capabilities"))`
	`25`	`+ self$ServerCapabilities <- server_capabilities`
`25`	`26`	`self$deliver(Response$new(id = id, result = list(capabilities = server_capabilities)))`
`26`	`27`	`}`
`27`	`28`