tests/testthat/test-build_site.R
In ropensci/dataspice: Create Lightweight Schema.org Descriptions of Data
test_that("build_site generates an html file", {
out_file <- tempfile()
build_site(
path = system.file(
file.path("examples", "annual-escapement.json"),
package = "dataspice"
),
out_path = out_file
)
expect_true(file.exists(out_file))
expect_equal(readLines(out_file)[1], "<html>")
})
test_that("build_site creates a docs dir if needed", {
out_dir <- tempdir()
old_wd <- getwd()
on.exit(setwd(old_wd))
setwd(out_dir)
build_site(
path = system.file(
file.path("examples", "annual-escapement.json"),
package = "dataspice"
)
)
expect_true(dir.exists("docs"))
})
test_that("build_site accepts and creates a difference dir when provided", {
out_dir <- tempdir()
old_wd <- getwd()
on.exit(setwd(old_wd))
setwd(out_dir)
indexdir <- "public"
indexpath <- file.path(indexdir, "index.html")
build_site(
path = system.file(
file.path("examples", "annual-escapement.json"),
package = "dataspice"
),
out_path = indexpath
)
expect_true(dir.exists(indexdir))
})
ropensci/dataspice documentation built on Dec. 22, 2021, 6:11 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("build_site generates an html file", {
out_file <- tempfile()
build_site(
path = system.file(
file.path("examples", "annual-escapement.json"),
package = "dataspice"
),
out_path = out_file
)
expect_true(file.exists(out_file))
expect_equal(readLines(out_file)[1], "<html>")
})
test_that("build_site creates a docs dir if needed", {
out_dir <- tempdir()
old_wd <- getwd()
on.exit(setwd(old_wd))
setwd(out_dir)
build_site(
path = system.file(
file.path("examples", "annual-escapement.json"),
package = "dataspice"
)
)
expect_true(dir.exists("docs"))
})
test_that("build_site accepts and creates a difference dir when provided", {
out_dir <- tempdir()
old_wd <- getwd()
on.exit(setwd(old_wd))
setwd(out_dir)
indexdir <- "public"
indexpath <- file.path(indexdir, "index.html")
build_site(
path = system.file(
file.path("examples", "annual-escapement.json"),
package = "dataspice"
),
out_path = indexpath
)
expect_true(dir.exists(indexdir))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.