1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
local server = require "nvim-lsp-installer.server"
local path = require "nvim-lsp-installer.path"
return function(name, root_dir)
local function create_install_script(install_dir)
return ([[
options(langserver_library = %q);
options(langserver_quiet = FALSE);
options(repos = list(CRAN = "http://cran.rstudio.com/"));
rlsLib <- getOption("langserver_library");
.libPaths(new = rlsLib);
didInstallRemotes <- FALSE;
tryCatch(
expr = { library("remotes") },
error = function (e) {
install.packages("remotes", lib = rlsLib);
loadNamespace("remotes", lib.loc = rlsLib);
didInstallRemotes <- TRUE;
}
);
# We set force = TRUE because this command will error if languageserversetup is already installed (even if it's at a
# different library location).
remotes::install_github("jozefhajnala/languageserversetup", lib = rlsLib, force = TRUE);
if (didInstallRemotes) {
remove.packages("remotes", lib = rlsLib);
}
loadNamespace("languageserversetup", lib.loc = rlsLib);
languageserversetup::languageserver_install(
fullReinstall = FALSE,
confirmBeforeInstall = FALSE,
strictLibrary = TRUE
);
library("languageserver", lib.loc = rlsLib);
]]):format(install_dir)
end
local server_script = ([[
options("langserver_library" = %q);
rlsLib <- getOption("langserver_library");
.libPaths(new = c(rlsLib, .libPaths()));
loadNamespace("languageserver", lib.loc = rlsLib);
languageserver::run();
]]):format(root_dir)
return server.Server:new {
name = name,
root_dir = root_dir,
homepage = "https://github.com/REditorSupport/languageserver",
languages = { "R" },
async = true,
---@param ctx InstallContext
installer = function(ctx)
ctx.spawn.R {
"--no-save",
on_spawn = function(_, stdio)
local stdin = stdio[1]
stdin:write(create_install_script(ctx.cwd:get()))
stdin:close()
end,
}
ctx.fs:write_file("server.R", server_script)
ctx.receipt:with_primary_source(ctx.receipt.r_package "languageserver")
end,
default_options = {
cmd = { "R", "--slave", "-f", path.concat { root_dir, "server.R" } },
},
}
end
|
