Error in `if (nrow(repos_table) > 0) {
    repos_iterator <- paste0(repos_table$organization, "/", repos_table$repo_name)
    issues <- purrr::map_dfr(repos_iterator, function(repo_path) {
        issues_endpoint <- paste0(private$endpoints[["repositories"]], 
            repo_path, "/issues")
        issues <- self$response(endpoint = issues_endpoint)
        data.frame(open = length(purrr::keep(issues, ~.$state == 
            "open")), closed = length(purrr::keep(issues, ~.$state == 
            "closed")))
    }, .progress = if (progress) {
        "Pulling repositories issues..."
    }
    else {
        FALSE
    })
    repos_table$issues_open <- issues$open
    repos_table$issues_closed <- issues$closed
}`: argument is of length zero

test_that("repos_by_org query is built properly", {
test_that("`get_repos_page()` pulls repos page from GitHub organization", {
test_that("`get_repos_from_org()` prepares formatted list", {
"id", "name", "stars", "forks", "created_at",
test_that("`get_repos_page()` pulls repos page from GitHub user", {
test_that("`search_response()` performs search with limit under 1000", {
test_that("`search_response()` performs search with limit over 1000", {
test_that("Mapping search result to repositories works", {
test_that("`get_repos_by_code()` returns repos output for code search in files", {
test_that("`get_repos_by_code()` for GitHub prepares a raw search response", {
test_that("GitHub tailors precisely `repos_list`", {
test_that("GitHub tailors `repos_list` to minimal version of table", {
test_that("`prepare_repos_table()` prepares repos table", {
test_that("`prepare_repos_table()` prepares minimum version of repos table", {
test_that("`get_repos_issues()` adds issues to repos table", {
test_that("`get_repos_with_code_from_orgs()` pulls minimum version of table", {
test_that("`get_repos_with_code_from_orgs()` pulls raw response", {
test_that("`get_repos_with_code_from_host()` pulls raw response", {
test_that("GitHub prepares repos table from repositories response", {
test_that("`get_all_repos()` works as expected", {
test_that("GitHost adds `repo_api_url` column to GitHub repos table", {
test_that("add_platform adds data on Git platform to repos table", {
test_that("`get_repos_contributors()` adds contributors to repos table", {
with_cols = c("api_url", "platform", "contributors")
test_that("`get_repos_contributors()` works on GitHost level", {
test_that("`get_repos()` works as expected", {
test_that("`get_repos()` pulls table in minimalist version", {