Nothing
test_that("lintr works", {
skip_on_cran()
dir <- tempdir()
client <- language_client(working_dir = dir, diagnostics = TRUE)
temp_file <- withr::local_tempfile(tmpdir = dir, fileext = ".R")
writeLines("a = 1", temp_file)
client %>% did_open(temp_file)
data <- client %>% wait_for("textDocument/publishDiagnostics")
expect_equal(client$diagnostics$size(), 1)
expect_equal(client$diagnostics$get(data$uri), data$diagnostics)
expect_equal(data$diagnostics[[1]]$code, "assignment_linter")
expect_equal(data$diagnostics[[1]]$message, "Use <-, not =, for assignment.")
})
test_that("lintr config file works", {
skip_on_cran()
dir <- tempdir()
lintr_file <- file.path(dir, ".lintr")
on.exit(unlink(lintr_file))
writeLines("linters: with_defaults()", lintr_file)
client <- language_client(working_dir = dir, diagnostics = TRUE)
temp_file <- withr::local_tempfile(tmpdir = dir, fileext = ".R")
writeLines("a=1", temp_file)
client %>% did_open(temp_file)
data <- client %>% wait_for("textDocument/publishDiagnostics")
expect_equal(client$diagnostics$size(), 1)
expect_equal(client$diagnostics$get(data$uri), data$diagnostics)
expect_length(data$diagnostics, 2)
expect_setequal(vapply(data$diagnostics, "[[", character(1), "code"),
c("assignment_linter", "infix_spaces_linter"))
writeLines("linters: with_defaults(assignment_linter=NULL)", lintr_file)
client <- language_client(working_dir = dir, diagnostics = TRUE)
temp_file <- withr::local_tempfile(tmpdir = dir, fileext = ".R")
writeLines("a=1", temp_file)
client %>% did_open(temp_file)
data <- client %>% wait_for("textDocument/publishDiagnostics")
expect_equal(client$diagnostics$size(), 1)
expect_equal(client$diagnostics$get(data$uri), data$diagnostics)
expect_length(data$diagnostics, 1)
expect_setequal(vapply(data$diagnostics, "[[", character(1), "code"),
c("infix_spaces_linter"))
writeLines("linters: list()", lintr_file)
client <- language_client(working_dir = dir, diagnostics = TRUE)
temp_file <- withr::local_tempfile(tmpdir = dir, fileext = ".R")
writeLines("a=1", temp_file)
client %>% did_open(temp_file)
data <- client %>% wait_for("textDocument/publishDiagnostics")
expect_equal(client$diagnostics$size(), 1)
expect_equal(client$diagnostics$get(data$uri), data$diagnostics)
expect_length(data$diagnostics, 0)
})
test_that("lintr is disabled", {
skip_on_cran()
client <- language_client(diagnostics = FALSE)
temp_file <- withr::local_tempfile(fileext = ".R")
writeLines("a = 1", temp_file)
client %>% did_open(temp_file)
data <- client %>% wait_for("textDocument/publishDiagnostics", timeout = runif(1, 1, 3))
expect_null(data)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.