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