Nothing
tests/testthat/test-fetchers.R
In rix: Reproducible Data Science Environments with 'Nix'
testthat::test_that("Test fetchgit works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing/",
commit = "1c860959310b80e67c41f7bbdc3e84cef00df18e"
)
),
"\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://github.com/rap4all/housing/\";\n rev = \"1c860959310b80e67c41f7bbdc3e84cef00df18e\";\n sha256 = \"sha256-s4KGtfKQ7hL0sfDhGb4BpBpspfefBN6hf+XlslqyEn4=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit fails gracefully", {
testthat::skip_on_cran()
testthat::expect_error(
fetchgit(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing666/",
commit = "this_commit_is_wrong"
)
),
"Are these correct?"
)
})
testthat::test_that("Test fetchgit works with gitlab packages", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "housing",
repo_url = "https://gitlab.com/b-rodrigues/housing/",
commit = "9442aa63d352d3c900f1c6f5a06f7930cdf702c4"
)
),
"\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://gitlab.com/b-rodrigues/housing/\";\n rev = \"9442aa63d352d3c900f1c6f5a06f7930cdf702c4\";\n sha256 = \"sha256-3V9XbNbq/YpbgnzkEu3XH7QKSDY8yNNd1vpOeR9ER0w=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit works with packages with empty imports", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "helloworld",
repo_url = "https://github.com/jrosell/helloworld/",
commit = "48ceefdfb4858743454ede71d19999c2e6b38ed2"
)
),
"\n helloworld = (pkgs.rPackages.buildRPackage {\n name = \"helloworld\";\n src = pkgs.fetchgit {\n url = \"https://github.com/jrosell/helloworld/\";\n rev = \"48ceefdfb4858743454ede71d19999c2e6b38ed2\";\n sha256 = \"sha256-vaO7ItKMO6PfvNDhWNDdw5ST/K081HplyW3RoQhNsEs=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) ;\n };\n });\n"
)
})
testthat::test_that("Test fetchzip works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchzip("AER@1.2-8"),
"\n AER = (pkgs.rPackages.buildRPackage {\n name = \"AER\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/AER/AER_1.2-8.tar.gz\";\n sha256 = \"sha256-OqxXcnUX/2C6wfD5fuNayc8OU+mstI3tt4eBVGQZ2S0=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n car\n lmtest\n sandwich\n survival\n zoo\n Formula;\n };\n });\n"
)
})
testthat::test_that("Test fetchzip fails gracefully", {
testthat::skip_on_cran()
testthat::expect_error(
fetchzip("AER@999999"),
"Are these correct?"
)
})
testthat::test_that("Test fetchgits", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
cache_file <- get_cache_file()
pkg_list <- list(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing/",
commit = "1c860959310b80e67c41f7bbdc3e84cef00df18e"
),
list(
package_name = "fusen",
repo_url = "https://github.com/ThinkR-open/fusen",
commit = "d617172447d2947efb20ad6a4463742b8a5d79dc"
)
)
expected_output <- "\n fusen = (pkgs.rPackages.buildRPackage {\n name = \"fusen\";\n src = pkgs.fetchgit {\n url = \"https://github.com/ThinkR-open/fusen\";\n rev = \"d617172447d2947efb20ad6a4463742b8a5d79dc\";\n sha256 = \"sha256-TOHA1ymLUSgZMYIA1a2yvuv0799svaDOl3zOhNRxcmw=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n attachment\n cli\n desc\n devtools\n glue\n here\n magrittr\n parsermd\n roxygen2\n stringi\n tibble\n tidyr\n usethis\n yaml;\n };\n });\n\n\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://github.com/rap4all/housing/\";\n rev = \"1c860959310b80e67c41f7bbdc3e84cef00df18e\";\n sha256 = \"sha256-s4KGtfKQ7hL0sfDhGb4BpBpspfefBN6hf+XlslqyEn4=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n"
testthat::expect_equal(
fetchgits(pkg_list),
expected_output
)
on.exit(unlink(cache_file))
})
testthat::test_that("Test fetchgits works when PR is provided in a remote package, but does not use it", {
# The PR provided in the DESCRIPTION file
# see https://github.com/mihem/rixTest/commit/b56829f7771d131e02fc58c546f9af6ee13b857e
# This should not fail, however it will not use the PR and instead fetch the closest commit using GitHub API
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
cache_file <- get_cache_file()
pkg_list <- list(
package_name = "rixTest",
repo_url = "https://github.com/mihem/rixTest",
commit = "b56829f7771d131e02fc58c546f9af6ee13b857e"
)
expected_output <- paste0(
"\n rix = (pkgs.rPackages.buildRPackage {\n",
" name = \"rix\";\n",
" src = pkgs.fetchgit {\n",
" url = \"https://github.com/ropensci/rix\";\n",
" rev = \"88bb24fe7a9adba2bd1dfedf143a3b250df94658\";\n",
" sha256 = \"sha256-zIaGjHvgEiDkBBu8hfRSFnZvtq3qH75uTug9Qcqn+iQ=\";\n",
" };\n",
" propagatedBuildInputs = builtins.attrValues {\n",
" inherit (pkgs.rPackages) \n",
" codetools\n",
" curl\n",
" jsonlite\n",
" sys;\n",
" };\n",
" });\n\n",
" rixTest = (pkgs.rPackages.buildRPackage {\n",
" name = \"rixTest\";\n",
" src = pkgs.fetchgit {\n",
" url = \"https://github.com/mihem/rixTest\";\n",
" rev = \"b56829f7771d131e02fc58c546f9af6ee13b857e\";\n",
" sha256 = \"sha256-s+zvH3bGkv9X0v3RI7R1HzmbX9KzdKs8vyRZj9WwV7Y=\";\n",
" };\n",
" propagatedBuildInputs = builtins.attrValues {\n",
" inherit (pkgs.rPackages) ;\n",
" } ++ [ rix ];\n",
" });\n"
)
testthat::expect_equal(
fetchgits(pkg_list),
expected_output
)
on.exit(unlink(cache_file))
})
testthat::test_that("Test fetchgits works when tag is provided in a remote package, but does not use it", {
# The tag is provided in the DESCRIPTION file
# https://github.com/mihem/rixTest/commit/25da90697895b006934a70bbd003aab5c5206c8b
# This should not fail, however it will not use the tag and instead fetch the closest commit using GitHub API
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
cache_file <- get_cache_file()
pkg_list <- list(
list(
package_name = "rixTest",
repo_url = "https://github.com/mihem/rixTest",
commit = "25da90697895b006934a70bbd003aab5c5206c8b"
)
)
expected_output <- paste0(
"\n rix = (pkgs.rPackages.buildRPackage {\n name = \"rix\";\n src = pkgs.fetchgit {\n url = \"https://github.com/ropensci/rix\";\n rev = \"3cb6e6db13d0bab1761dd70f29344edb07853fd8\";\n sha256 = \"sha256-7l9DGe+wTc0718fBRWTZl7OKlT34vWWdooyOR3ZAAaM=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n codetools\n curl\n jsonlite\n sys;\n };\n });\n\n rixTest = (pkgs.rPackages.buildRPackage {\n name = \"rixTest\";\n src = pkgs.fetchgit {\n url = \"https://github.com/mihem/rixTest\";\n rev = \"25da90697895b006934a70bbd003aab5c5206c8b\";\n sha256 = \"sha256-+EP74d5nWjGbniQ0iEzDyKUky94L8FpvkyxFNfokJKM=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) ;\n } ++ [ rix ];\n });\n"
)
testthat::expect_equal(
fetchgits(pkg_list),
expected_output
)
on.exit(unlink(cache_file))
})
testthat::test_that("Test fetchzips works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchzips(
c("dplyr@0.8.0", "AER@1.2-8")
),
"\n AER = (pkgs.rPackages.buildRPackage {\n name = \"AER\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/AER/AER_1.2-8.tar.gz\";\n sha256 = \"sha256-OqxXcnUX/2C6wfD5fuNayc8OU+mstI3tt4eBVGQZ2S0=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n car\n lmtest\n sandwich\n survival\n zoo\n Formula;\n };\n });\n\n\n dplyr = (pkgs.rPackages.buildRPackage {\n name = \"dplyr\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/dplyr/dplyr_0.8.0.tar.gz\";\n sha256 = \"sha256-f30raalLd9KoZKZSxeTN71PG6BczXRIiP6g7EZeH09U=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n assertthat\n glue\n magrittr\n pkgconfig\n R6\n Rcpp\n rlang\n tibble\n tidyselect\n BH\n plogr;\n };\n });\n"
)
})
testthat::test_that("Test fetchpkgs works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchpkgs(
git_pkgs = list(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing/",
commit = "1c860959310b80e67c41f7bbdc3e84cef00df18e"
),
list(
package_name = "fusen",
repo_url = "https://github.com/ThinkR-open/fusen",
commit = "d617172447d2947efb20ad6a4463742b8a5d79dc"
)
),
archive_pkgs = c("AER@1.2-8", "dplyr@0.8.0")
),
"\n fusen = (pkgs.rPackages.buildRPackage {\n name = \"fusen\";\n src = pkgs.fetchgit {\n url = \"https://github.com/ThinkR-open/fusen\";\n rev = \"d617172447d2947efb20ad6a4463742b8a5d79dc\";\n sha256 = \"sha256-TOHA1ymLUSgZMYIA1a2yvuv0799svaDOl3zOhNRxcmw=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n attachment\n cli\n desc\n devtools\n glue\n here\n magrittr\n parsermd\n roxygen2\n stringi\n tibble\n tidyr\n usethis\n yaml;\n };\n });\n\n\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://github.com/rap4all/housing/\";\n rev = \"1c860959310b80e67c41f7bbdc3e84cef00df18e\";\n sha256 = \"sha256-s4KGtfKQ7hL0sfDhGb4BpBpspfefBN6hf+XlslqyEn4=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n \n AER = (pkgs.rPackages.buildRPackage {\n name = \"AER\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/AER/AER_1.2-8.tar.gz\";\n sha256 = \"sha256-OqxXcnUX/2C6wfD5fuNayc8OU+mstI3tt4eBVGQZ2S0=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n car\n lmtest\n sandwich\n survival\n zoo\n Formula;\n };\n });\n\n\n dplyr = (pkgs.rPackages.buildRPackage {\n name = \"dplyr\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/dplyr/dplyr_0.8.0.tar.gz\";\n sha256 = \"sha256-f30raalLd9KoZKZSxeTN71PG6BczXRIiP6g7EZeH09U=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n assertthat\n glue\n magrittr\n pkgconfig\n R6\n Rcpp\n rlang\n tibble\n tidyselect\n BH\n plogr;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit gets a package with several remote deps and commits", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
suppressMessages(
fetchgit(
list(
package_name = "lookup",
repo_url = "https://github.com/b-rodrigues/lookup/",
commit = "ee5505c817b19b59d37236ed35a81a65aa376124"
)
)
),
"\n httr2 = (pkgs.rPackages.buildRPackage {\n name = \"httr2\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/httr2\";\n rev = \"15243331d3f6192e1a2c210b2959d6fec63402c4\";\n sha256 = \"sha256-ny4J2WqUL4LPLWRKS8rgVqwvgMOQ2Rm/lbBWtF+99PE=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n cli\n curl\n glue\n lifecycle\n magrittr\n openssl\n R6\n rappdirs\n rlang\n vctrs\n withr;\n };\n });\n\n gh = (pkgs.rPackages.buildRPackage {\n name = \"gh\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/gh\";\n rev = \"HEAD\";\n sha256 = \"sha256-POXEMZv8kqHokAxK8LoWkS0qYrcIcVdQi5xyGD992KU=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n cli\n gitcreds\n glue\n ini\n jsonlite\n lifecycle\n rlang;\n } ++ [ httr2 ];\n });\n\n\n highlite = (pkgs.rPackages.buildRPackage {\n name = \"highlite\";\n src = pkgs.fetchgit {\n url = \"https://github.com/jimhester/highlite\";\n rev = \"767b122ef47a60a01e1707e4093cf3635a99c86b\";\n sha256 = \"sha256-lkWMlAi75MYxiBUYnLwxLK9ApXkWanA4Mt7g4qtLpxM=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n Rcpp\n BH;\n };\n });\n\n\n memoise = (pkgs.rPackages.buildRPackage {\n name = \"memoise\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/memoise\";\n rev = \"74d62c8\";\n sha256 = \"sha256-fsdop66VglkOIYrJ0LKZKikIZmzQ2gqEATLy9tTJ/B8=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n digest;\n };\n });\n\n lookup = (pkgs.rPackages.buildRPackage {\n name = \"lookup\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/lookup/\";\n rev = \"ee5505c817b19b59d37236ed35a81a65aa376124\";\n sha256 = \"sha256-jiSBuC1vzJbN6OckgVX0E+XuMCeZS5LKsldIVL7DNgo=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n Rcpp\n codetools\n crayon\n rex\n jsonlite\n rstudioapi\n withr\n httr;\n } ++ [ highlite gh memoise ];\n });\n"
)
})
testthat::test_that("Test fetchgit gets a package that is not listed in DESCRIPTION, only in NAMESPACE", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "seurat-data",
repo_url = "https://github.com/satijalab/seurat-data",
commit = "4dc08e022f51c324bc7bf785b1b5771d2742701d"
)
),
"\n seurat-data = (pkgs.rPackages.buildRPackage {\n name = \"seurat-data\";\n src = pkgs.fetchgit {\n url = \"https://github.com/satijalab/seurat-data\";\n rev = \"4dc08e022f51c324bc7bf785b1b5771d2742701d\";\n sha256 = \"sha256-dyv8ttrVaGwd5tPle2+wDHMa8lVjozZnVMsKArEMTPE=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n cli\n crayon\n rappdirs\n SeuratObject\n Matrix\n Seurat;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit works with packages that use subdirectories", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
suppressMessages(
fetchgit(
list(
package_name = "BPCells",
repo_url = "https://github.com/bnprks/BPCells/r",
commit = "16faeade0a26b392637217b0caf5d7017c5bdf9b"
)
)
),
"\n BPCells = (pkgs.rPackages.buildRPackage {\n name = \"BPCells\";\n src = pkgs.fetchgit {\n url = \"https://github.com/bnprks/BPCells/r\";\n rev = \"16faeade0a26b392637217b0caf5d7017c5bdf9b\";\n sha256 = \"sha256-8un4tazyJ3asjC4J/9AAAmRI584JPEjE3iL1i7BB8jk=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n magrittr\n Matrix\n Rcpp\n rlang\n vctrs\n lifecycle\n stringr\n tibble\n dplyr\n tidyr\n readr\n ggplot2\n scales\n patchwork\n scattermore\n ggrepel\n RColorBrewer\n hexbin\n RcppEigen;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit works even if there are not `importfrom` in NAMESPACE", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_no_error(
fetchgit(
list(
package_name = "CSFAtlasTools",
repo_url = "https://github.com/mihem/CSFAtlasTools",
commit = "ac4a34d39812e8b8fa5746b63df4cf321a13b7a7"
)
)
)
})
testthat::test_that("get_commit_date works with valid repo and commit", {
testthat::skip_on_cran()
date <- get_commit_date(
"ropensci/rix",
"cd7a53f7c670bd5106a94b48573d5f824174170f"
)
testthat::expect_match(date, "2025-01-10T07:05:02Z")
})
testthat::test_that("get_commit_date tells you when it cannot get commit date and then uses the current date", {
testthat::skip_on_cran()
testthat::expect_message(
date <- get_commit_date(
"nonexistent/repo",
"cd7a53f7c670bd5106a94b48573d5f824174170f"
),
"Failed to get commit date from <<< nonexistent/repo >>> : API request failed with status code: 404"
)
testthat::expect_equal(date, Sys.Date())
})
testthat::test_that("get_commit_date fails with invalid commit", {
testthat::skip_on_cran()
testthat::expect_message(
date <- get_commit_date(
"ropensci/rix",
"ad7a53f7c670bd5106a94b48573d5f824174170f"
),
"Failed to get commit date from <<< ropensci/rix >>>"
)
testthat::expect_equal(date, Sys.Date())
})
testthat::test_that("get_commit_date tells you when no GitHub token is found", {
testthat::skip_on_cran()
# Temporarily unset GITHUB_PAT if it exists
old_pat <- Sys.getenv("GITHUB_PAT")
Sys.unsetenv("GITHUB_PAT")
on.exit(Sys.setenv(GITHUB_PAT = old_pat))
testthat::expect_message(
get_commit_date(
"ropensci/rix",
"cd7a53f7c670bd5106a94b48573d5f824174170f"
),
"When fetching the commit date from GitHub from <<< ropensci/rix >>>, no GitHub Personal Access Token found"
)
})
testthat::test_that("Test download_all_commits works with valid repo", {
testthat::skip_on_cran()
commits <- download_all_commits("ropensci/rix", "2025-01-10T07:05:02Z")
# Check structure
testthat::expect_true(is.data.frame(commits))
testthat::expect_named(commits, c("sha", "date"))
# Check content
testthat::expect_true(nrow(commits) > 0)
testthat::expect_true(all(!is.na(commits$sha)))
testthat::expect_true(all(!is.na(commits$date)))
# Verify date format
testthat::expect_true(all(class(commits$date) %in% c("POSIXct", "POSIXt")))
})
testthat::test_that("Test download_all_commits fails with invalid repo", {
testthat::skip_on_cran()
testthat::expect_error(
download_all_commits("nonexistent/repo"),
"Failed to download commit data"
)
})
testthat::test_that("resolve_package_commit works with different input cases", {
testthat::skip_on_cran()
# Test case 1: When ref is provided
pkg_with_ref <- c("schex", "031320d")
remotes <- c("welch-lab/liger", "SaskiaFreytag/schex@031320d")
target_date <- "2024-04-04T14:16:11Z"
testthat::expect_equal(
resolve_package_commit(
remote_pkg_name_and_ref = pkg_with_ref,
date = target_date,
remotes = remotes
),
"031320d"
)
# Test case 2: When no ref is provided find the closest commit
pkg_without_ref <- c("liger")
remotes <- c("welch-lab/liger", "hms-dbmi/conos")
target_date <- "2024-04-04T14:16:11Z"
testthat::expect_equal(
resolve_package_commit(
remote_pkg_name_and_ref = pkg_without_ref,
date = target_date,
remotes = remotes
),
"43fccb96b986f9da2c3a4320fe58693ca660193b"
)
# Test case 3: When input is invalid
testthat::expect_error(
resolve_package_commit(c(), date, remotes),
"remote_pkg_name_and_ref must be a list of length 1 or 2"
)
# Test case 4: resolve_package_commit falls back to HEAD when API fails
pkg_name <- c("nonexistent")
remotes <- c("user/nonexistent")
target_date <- "2024-04-04T14:16:11Z"
testthat::expect_message(
result <- resolve_package_commit(pkg_name, target_date, remotes),
"Failed to get closest commit for user/nonexistent:"
)
testthat::expect_equal(result, "HEAD")
})
Try the rix package in your browser
Any scripts or data that you put into this service are public.
rix documentation built on Sept. 11, 2025, 5:12 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.
testthat::test_that("Test fetchgit works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing/",
commit = "1c860959310b80e67c41f7bbdc3e84cef00df18e"
)
),
"\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://github.com/rap4all/housing/\";\n rev = \"1c860959310b80e67c41f7bbdc3e84cef00df18e\";\n sha256 = \"sha256-s4KGtfKQ7hL0sfDhGb4BpBpspfefBN6hf+XlslqyEn4=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit fails gracefully", {
testthat::skip_on_cran()
testthat::expect_error(
fetchgit(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing666/",
commit = "this_commit_is_wrong"
)
),
"Are these correct?"
)
})
testthat::test_that("Test fetchgit works with gitlab packages", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "housing",
repo_url = "https://gitlab.com/b-rodrigues/housing/",
commit = "9442aa63d352d3c900f1c6f5a06f7930cdf702c4"
)
),
"\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://gitlab.com/b-rodrigues/housing/\";\n rev = \"9442aa63d352d3c900f1c6f5a06f7930cdf702c4\";\n sha256 = \"sha256-3V9XbNbq/YpbgnzkEu3XH7QKSDY8yNNd1vpOeR9ER0w=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit works with packages with empty imports", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "helloworld",
repo_url = "https://github.com/jrosell/helloworld/",
commit = "48ceefdfb4858743454ede71d19999c2e6b38ed2"
)
),
"\n helloworld = (pkgs.rPackages.buildRPackage {\n name = \"helloworld\";\n src = pkgs.fetchgit {\n url = \"https://github.com/jrosell/helloworld/\";\n rev = \"48ceefdfb4858743454ede71d19999c2e6b38ed2\";\n sha256 = \"sha256-vaO7ItKMO6PfvNDhWNDdw5ST/K081HplyW3RoQhNsEs=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) ;\n };\n });\n"
)
})
testthat::test_that("Test fetchzip works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchzip("AER@1.2-8"),
"\n AER = (pkgs.rPackages.buildRPackage {\n name = \"AER\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/AER/AER_1.2-8.tar.gz\";\n sha256 = \"sha256-OqxXcnUX/2C6wfD5fuNayc8OU+mstI3tt4eBVGQZ2S0=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n car\n lmtest\n sandwich\n survival\n zoo\n Formula;\n };\n });\n"
)
})
testthat::test_that("Test fetchzip fails gracefully", {
testthat::skip_on_cran()
testthat::expect_error(
fetchzip("AER@999999"),
"Are these correct?"
)
})
testthat::test_that("Test fetchgits", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
cache_file <- get_cache_file()
pkg_list <- list(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing/",
commit = "1c860959310b80e67c41f7bbdc3e84cef00df18e"
),
list(
package_name = "fusen",
repo_url = "https://github.com/ThinkR-open/fusen",
commit = "d617172447d2947efb20ad6a4463742b8a5d79dc"
)
)
expected_output <- "\n fusen = (pkgs.rPackages.buildRPackage {\n name = \"fusen\";\n src = pkgs.fetchgit {\n url = \"https://github.com/ThinkR-open/fusen\";\n rev = \"d617172447d2947efb20ad6a4463742b8a5d79dc\";\n sha256 = \"sha256-TOHA1ymLUSgZMYIA1a2yvuv0799svaDOl3zOhNRxcmw=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n attachment\n cli\n desc\n devtools\n glue\n here\n magrittr\n parsermd\n roxygen2\n stringi\n tibble\n tidyr\n usethis\n yaml;\n };\n });\n\n\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://github.com/rap4all/housing/\";\n rev = \"1c860959310b80e67c41f7bbdc3e84cef00df18e\";\n sha256 = \"sha256-s4KGtfKQ7hL0sfDhGb4BpBpspfefBN6hf+XlslqyEn4=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n"
testthat::expect_equal(
fetchgits(pkg_list),
expected_output
)
on.exit(unlink(cache_file))
})
testthat::test_that("Test fetchgits works when PR is provided in a remote package, but does not use it", {
# The PR provided in the DESCRIPTION file
# see https://github.com/mihem/rixTest/commit/b56829f7771d131e02fc58c546f9af6ee13b857e
# This should not fail, however it will not use the PR and instead fetch the closest commit using GitHub API
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
cache_file <- get_cache_file()
pkg_list <- list(
package_name = "rixTest",
repo_url = "https://github.com/mihem/rixTest",
commit = "b56829f7771d131e02fc58c546f9af6ee13b857e"
)
expected_output <- paste0(
"\n rix = (pkgs.rPackages.buildRPackage {\n",
" name = \"rix\";\n",
" src = pkgs.fetchgit {\n",
" url = \"https://github.com/ropensci/rix\";\n",
" rev = \"88bb24fe7a9adba2bd1dfedf143a3b250df94658\";\n",
" sha256 = \"sha256-zIaGjHvgEiDkBBu8hfRSFnZvtq3qH75uTug9Qcqn+iQ=\";\n",
" };\n",
" propagatedBuildInputs = builtins.attrValues {\n",
" inherit (pkgs.rPackages) \n",
" codetools\n",
" curl\n",
" jsonlite\n",
" sys;\n",
" };\n",
" });\n\n",
" rixTest = (pkgs.rPackages.buildRPackage {\n",
" name = \"rixTest\";\n",
" src = pkgs.fetchgit {\n",
" url = \"https://github.com/mihem/rixTest\";\n",
" rev = \"b56829f7771d131e02fc58c546f9af6ee13b857e\";\n",
" sha256 = \"sha256-s+zvH3bGkv9X0v3RI7R1HzmbX9KzdKs8vyRZj9WwV7Y=\";\n",
" };\n",
" propagatedBuildInputs = builtins.attrValues {\n",
" inherit (pkgs.rPackages) ;\n",
" } ++ [ rix ];\n",
" });\n"
)
testthat::expect_equal(
fetchgits(pkg_list),
expected_output
)
on.exit(unlink(cache_file))
})
testthat::test_that("Test fetchgits works when tag is provided in a remote package, but does not use it", {
# The tag is provided in the DESCRIPTION file
# https://github.com/mihem/rixTest/commit/25da90697895b006934a70bbd003aab5c5206c8b
# This should not fail, however it will not use the tag and instead fetch the closest commit using GitHub API
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
cache_file <- get_cache_file()
pkg_list <- list(
list(
package_name = "rixTest",
repo_url = "https://github.com/mihem/rixTest",
commit = "25da90697895b006934a70bbd003aab5c5206c8b"
)
)
expected_output <- paste0(
"\n rix = (pkgs.rPackages.buildRPackage {\n name = \"rix\";\n src = pkgs.fetchgit {\n url = \"https://github.com/ropensci/rix\";\n rev = \"3cb6e6db13d0bab1761dd70f29344edb07853fd8\";\n sha256 = \"sha256-7l9DGe+wTc0718fBRWTZl7OKlT34vWWdooyOR3ZAAaM=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n codetools\n curl\n jsonlite\n sys;\n };\n });\n\n rixTest = (pkgs.rPackages.buildRPackage {\n name = \"rixTest\";\n src = pkgs.fetchgit {\n url = \"https://github.com/mihem/rixTest\";\n rev = \"25da90697895b006934a70bbd003aab5c5206c8b\";\n sha256 = \"sha256-+EP74d5nWjGbniQ0iEzDyKUky94L8FpvkyxFNfokJKM=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) ;\n } ++ [ rix ];\n });\n"
)
testthat::expect_equal(
fetchgits(pkg_list),
expected_output
)
on.exit(unlink(cache_file))
})
testthat::test_that("Test fetchzips works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchzips(
c("dplyr@0.8.0", "AER@1.2-8")
),
"\n AER = (pkgs.rPackages.buildRPackage {\n name = \"AER\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/AER/AER_1.2-8.tar.gz\";\n sha256 = \"sha256-OqxXcnUX/2C6wfD5fuNayc8OU+mstI3tt4eBVGQZ2S0=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n car\n lmtest\n sandwich\n survival\n zoo\n Formula;\n };\n });\n\n\n dplyr = (pkgs.rPackages.buildRPackage {\n name = \"dplyr\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/dplyr/dplyr_0.8.0.tar.gz\";\n sha256 = \"sha256-f30raalLd9KoZKZSxeTN71PG6BczXRIiP6g7EZeH09U=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n assertthat\n glue\n magrittr\n pkgconfig\n R6\n Rcpp\n rlang\n tibble\n tidyselect\n BH\n plogr;\n };\n });\n"
)
})
testthat::test_that("Test fetchpkgs works", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchpkgs(
git_pkgs = list(
list(
package_name = "housing",
repo_url = "https://github.com/rap4all/housing/",
commit = "1c860959310b80e67c41f7bbdc3e84cef00df18e"
),
list(
package_name = "fusen",
repo_url = "https://github.com/ThinkR-open/fusen",
commit = "d617172447d2947efb20ad6a4463742b8a5d79dc"
)
),
archive_pkgs = c("AER@1.2-8", "dplyr@0.8.0")
),
"\n fusen = (pkgs.rPackages.buildRPackage {\n name = \"fusen\";\n src = pkgs.fetchgit {\n url = \"https://github.com/ThinkR-open/fusen\";\n rev = \"d617172447d2947efb20ad6a4463742b8a5d79dc\";\n sha256 = \"sha256-TOHA1ymLUSgZMYIA1a2yvuv0799svaDOl3zOhNRxcmw=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n attachment\n cli\n desc\n devtools\n glue\n here\n magrittr\n parsermd\n roxygen2\n stringi\n tibble\n tidyr\n usethis\n yaml;\n };\n });\n\n\n housing = (pkgs.rPackages.buildRPackage {\n name = \"housing\";\n src = pkgs.fetchgit {\n url = \"https://github.com/rap4all/housing/\";\n rev = \"1c860959310b80e67c41f7bbdc3e84cef00df18e\";\n sha256 = \"sha256-s4KGtfKQ7hL0sfDhGb4BpBpspfefBN6hf+XlslqyEn4=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n dplyr\n ggplot2\n janitor\n purrr\n readxl\n rlang\n rvest\n stringr\n tidyr;\n };\n });\n \n AER = (pkgs.rPackages.buildRPackage {\n name = \"AER\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/AER/AER_1.2-8.tar.gz\";\n sha256 = \"sha256-OqxXcnUX/2C6wfD5fuNayc8OU+mstI3tt4eBVGQZ2S0=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n car\n lmtest\n sandwich\n survival\n zoo\n Formula;\n };\n });\n\n\n dplyr = (pkgs.rPackages.buildRPackage {\n name = \"dplyr\";\n src = pkgs.fetchzip {\n url = \"https://cran.r-project.org/src/contrib/Archive/dplyr/dplyr_0.8.0.tar.gz\";\n sha256 = \"sha256-f30raalLd9KoZKZSxeTN71PG6BczXRIiP6g7EZeH09U=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n assertthat\n glue\n magrittr\n pkgconfig\n R6\n Rcpp\n rlang\n tibble\n tidyselect\n BH\n plogr;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit gets a package with several remote deps and commits", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
suppressMessages(
fetchgit(
list(
package_name = "lookup",
repo_url = "https://github.com/b-rodrigues/lookup/",
commit = "ee5505c817b19b59d37236ed35a81a65aa376124"
)
)
),
"\n httr2 = (pkgs.rPackages.buildRPackage {\n name = \"httr2\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/httr2\";\n rev = \"15243331d3f6192e1a2c210b2959d6fec63402c4\";\n sha256 = \"sha256-ny4J2WqUL4LPLWRKS8rgVqwvgMOQ2Rm/lbBWtF+99PE=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n cli\n curl\n glue\n lifecycle\n magrittr\n openssl\n R6\n rappdirs\n rlang\n vctrs\n withr;\n };\n });\n\n gh = (pkgs.rPackages.buildRPackage {\n name = \"gh\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/gh\";\n rev = \"HEAD\";\n sha256 = \"sha256-POXEMZv8kqHokAxK8LoWkS0qYrcIcVdQi5xyGD992KU=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n cli\n gitcreds\n glue\n ini\n jsonlite\n lifecycle\n rlang;\n } ++ [ httr2 ];\n });\n\n\n highlite = (pkgs.rPackages.buildRPackage {\n name = \"highlite\";\n src = pkgs.fetchgit {\n url = \"https://github.com/jimhester/highlite\";\n rev = \"767b122ef47a60a01e1707e4093cf3635a99c86b\";\n sha256 = \"sha256-lkWMlAi75MYxiBUYnLwxLK9ApXkWanA4Mt7g4qtLpxM=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n Rcpp\n BH;\n };\n });\n\n\n memoise = (pkgs.rPackages.buildRPackage {\n name = \"memoise\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/memoise\";\n rev = \"74d62c8\";\n sha256 = \"sha256-fsdop66VglkOIYrJ0LKZKikIZmzQ2gqEATLy9tTJ/B8=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n digest;\n };\n });\n\n lookup = (pkgs.rPackages.buildRPackage {\n name = \"lookup\";\n src = pkgs.fetchgit {\n url = \"https://github.com/b-rodrigues/lookup/\";\n rev = \"ee5505c817b19b59d37236ed35a81a65aa376124\";\n sha256 = \"sha256-jiSBuC1vzJbN6OckgVX0E+XuMCeZS5LKsldIVL7DNgo=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n Rcpp\n codetools\n crayon\n rex\n jsonlite\n rstudioapi\n withr\n httr;\n } ++ [ highlite gh memoise ];\n });\n"
)
})
testthat::test_that("Test fetchgit gets a package that is not listed in DESCRIPTION, only in NAMESPACE", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
fetchgit(
list(
package_name = "seurat-data",
repo_url = "https://github.com/satijalab/seurat-data",
commit = "4dc08e022f51c324bc7bf785b1b5771d2742701d"
)
),
"\n seurat-data = (pkgs.rPackages.buildRPackage {\n name = \"seurat-data\";\n src = pkgs.fetchgit {\n url = \"https://github.com/satijalab/seurat-data\";\n rev = \"4dc08e022f51c324bc7bf785b1b5771d2742701d\";\n sha256 = \"sha256-dyv8ttrVaGwd5tPle2+wDHMa8lVjozZnVMsKArEMTPE=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n cli\n crayon\n rappdirs\n SeuratObject\n Matrix\n Seurat;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit works with packages that use subdirectories", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_equal(
suppressMessages(
fetchgit(
list(
package_name = "BPCells",
repo_url = "https://github.com/bnprks/BPCells/r",
commit = "16faeade0a26b392637217b0caf5d7017c5bdf9b"
)
)
),
"\n BPCells = (pkgs.rPackages.buildRPackage {\n name = \"BPCells\";\n src = pkgs.fetchgit {\n url = \"https://github.com/bnprks/BPCells/r\";\n rev = \"16faeade0a26b392637217b0caf5d7017c5bdf9b\";\n sha256 = \"sha256-8un4tazyJ3asjC4J/9AAAmRI584JPEjE3iL1i7BB8jk=\";\n };\n propagatedBuildInputs = builtins.attrValues {\n inherit (pkgs.rPackages) \n magrittr\n Matrix\n Rcpp\n rlang\n vctrs\n lifecycle\n stringr\n tibble\n dplyr\n tidyr\n readr\n ggplot2\n scales\n patchwork\n scattermore\n ggrepel\n RColorBrewer\n hexbin\n RcppEigen;\n };\n });\n"
)
})
testthat::test_that("Test fetchgit works even if there are not `importfrom` in NAMESPACE", {
testthat::skip_on_cran()
skip_if_not(nix_shell_available())
testthat::expect_no_error(
fetchgit(
list(
package_name = "CSFAtlasTools",
repo_url = "https://github.com/mihem/CSFAtlasTools",
commit = "ac4a34d39812e8b8fa5746b63df4cf321a13b7a7"
)
)
)
})
testthat::test_that("get_commit_date works with valid repo and commit", {
testthat::skip_on_cran()
date <- get_commit_date(
"ropensci/rix",
"cd7a53f7c670bd5106a94b48573d5f824174170f"
)
testthat::expect_match(date, "2025-01-10T07:05:02Z")
})
testthat::test_that("get_commit_date tells you when it cannot get commit date and then uses the current date", {
testthat::skip_on_cran()
testthat::expect_message(
date <- get_commit_date(
"nonexistent/repo",
"cd7a53f7c670bd5106a94b48573d5f824174170f"
),
"Failed to get commit date from <<< nonexistent/repo >>> : API request failed with status code: 404"
)
testthat::expect_equal(date, Sys.Date())
})
testthat::test_that("get_commit_date fails with invalid commit", {
testthat::skip_on_cran()
testthat::expect_message(
date <- get_commit_date(
"ropensci/rix",
"ad7a53f7c670bd5106a94b48573d5f824174170f"
),
"Failed to get commit date from <<< ropensci/rix >>>"
)
testthat::expect_equal(date, Sys.Date())
})
testthat::test_that("get_commit_date tells you when no GitHub token is found", {
testthat::skip_on_cran()
# Temporarily unset GITHUB_PAT if it exists
old_pat <- Sys.getenv("GITHUB_PAT")
Sys.unsetenv("GITHUB_PAT")
on.exit(Sys.setenv(GITHUB_PAT = old_pat))
testthat::expect_message(
get_commit_date(
"ropensci/rix",
"cd7a53f7c670bd5106a94b48573d5f824174170f"
),
"When fetching the commit date from GitHub from <<< ropensci/rix >>>, no GitHub Personal Access Token found"
)
})
testthat::test_that("Test download_all_commits works with valid repo", {
testthat::skip_on_cran()
commits <- download_all_commits("ropensci/rix", "2025-01-10T07:05:02Z")
# Check structure
testthat::expect_true(is.data.frame(commits))
testthat::expect_named(commits, c("sha", "date"))
# Check content
testthat::expect_true(nrow(commits) > 0)
testthat::expect_true(all(!is.na(commits$sha)))
testthat::expect_true(all(!is.na(commits$date)))
# Verify date format
testthat::expect_true(all(class(commits$date) %in% c("POSIXct", "POSIXt")))
})
testthat::test_that("Test download_all_commits fails with invalid repo", {
testthat::skip_on_cran()
testthat::expect_error(
download_all_commits("nonexistent/repo"),
"Failed to download commit data"
)
})
testthat::test_that("resolve_package_commit works with different input cases", {
testthat::skip_on_cran()
# Test case 1: When ref is provided
pkg_with_ref <- c("schex", "031320d")
remotes <- c("welch-lab/liger", "SaskiaFreytag/schex@031320d")
target_date <- "2024-04-04T14:16:11Z"
testthat::expect_equal(
resolve_package_commit(
remote_pkg_name_and_ref = pkg_with_ref,
date = target_date,
remotes = remotes
),
"031320d"
)
# Test case 2: When no ref is provided find the closest commit
pkg_without_ref <- c("liger")
remotes <- c("welch-lab/liger", "hms-dbmi/conos")
target_date <- "2024-04-04T14:16:11Z"
testthat::expect_equal(
resolve_package_commit(
remote_pkg_name_and_ref = pkg_without_ref,
date = target_date,
remotes = remotes
),
"43fccb96b986f9da2c3a4320fe58693ca660193b"
)
# Test case 3: When input is invalid
testthat::expect_error(
resolve_package_commit(c(), date, remotes),
"remote_pkg_name_and_ref must be a list of length 1 or 2"
)
# Test case 4: resolve_package_commit falls back to HEAD when API fails
pkg_name <- c("nonexistent")
remotes <- c("user/nonexistent")
target_date <- "2024-04-04T14:16:11Z"
testthat::expect_message(
result <- resolve_package_commit(pkg_name, target_date, remotes),
"Failed to get closest commit for user/nonexistent:"
)
testthat::expect_equal(result, "HEAD")
})
Try the rix package in your browser
Any scripts or data that you put into this service are public.
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.