context("projects")
# test_that("project checking works", {
#
# # noob
# #dir <- test_path("project_noob")
# #test_dir <- sandbox(dir)
#
# dir <- test_path()
# temp <- sandbox(dir)
# test_dir <- fs::path(temp, "project_noob")
#
# #expect_gt(nrow(x <- proj_check(dir)), 1
# expect_true(has_proj_root(test_dir)$state)
# expect_false(has_readme(test_dir)$state)
# expect_true(has_tidy_media(test_dir)$state)
# expect_true(has_tidy_images(test_dir)$state)
# expect_true(has_tidy_code(test_dir)$state)
# expect_true(has_tidy_raw_data(test_dir)$state)
# expect_true(has_tidy_data(test_dir)$state)
# expect_true(has_tidy_scripts(test_dir)$state)
#
#
# expect_true(has_no_absolute_paths(test_dir)$state)
# expect_false(has_only_portable_paths(test_dir)$state)
# expect_true(has_no_randomness(test_dir)$state)
#
#
# expect_warning(proj_analyze_files(test_dir), "README")
# expect_warning(x <- proj_test(test_dir), "README")
#
# expect_length(dir_ls(tempdir(), regexp = "simple.html$"), 1)
# expect_equal(nrow(x$packages), 3)
# # .Rbuildignore says to ignore .Rproj files!
# expect_equal(nrow(dplyr::filter(x$files, ext != "Rproj")), 2)
# expect_equal(nrow(x$suggestions), 2)
# expect_equal(nrow(x$paths), 2)
#
# proj_move_files(x$suggestions, execute = FALSE)
# expect_length(dir_ls(test_dir, type = "dir"), 0)
# proj_move_files(x$suggestions, execute = TRUE)
# expect_length(path_file(dir_ls(test_dir, type = "dir")), 2)
#
# # miceps
# dir <- test_path("project_miceps")
# test_dir <- sandbox(dir)
#
# x <- proj_test(test_dir)
#
# expect_equal(nrow(x$packages), 5)
# expect_equal(nrow(dplyr::filter(x$files, ext != "Rproj")), 8)
# expect_equal(nrow(x$suggestions), 7)
# expect_equal(nrow(x$paths), 0)
#
# proj_move_files(x$suggestions, execute = FALSE)
# expect_length(dir_ls(test_dir, type = "dir"), 0)
# proj_move_files(x$suggestions, execute = TRUE)
# expect_length(path_file(dir_ls(test_dir, type = "dir")), 3)
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.