"`get_repos_page()` pulls repos page from GitHub organization"
"`get_repos_page()` pulls repos page from GitHub user"
"`search_response()` performs search with limit under 1000"
"`search_response()` performs search with limit over 1000"
"Mapping search result to repositories works"
"`get_repos_by_code()` returns repos output for code search in files"
"`get_repos_by_code()` for GitHub prepares a raw search response"
"GitHub tailors `repos_list` to minimal version of table"
"`prepare_repos_table()` prepares minimum version of repos table"
"`get_repos_issues()` adds issues to repos table"
"`get_repos_with_code_from_orgs()` pulls minimum version of table"
"GitHub prepares repos table from repositories response"
"GitHost adds `repo_api_url` column to GitHub repos table"
"add_platform adds data on Git platform to repos table"
"`get_repos_contributors()` adds contributors to repos table"
"`get_repos_contributors()` works on GitHost level"
"`get_repos()` pulls table in minimalist version"

`get_repos_issues()` adds issues to repos table

Names of `repos_object` ('') don't match 'repo_id', 'repo_name', 'default_branch', 'stars', 'forks', 'created_at', 'last_activity_at', 'languages', 'issues_open', 'issues_closed', 'organization', 'repo_url'

nrow(repos_object) is not strictly more than 0. Difference: 0

Names of `repos_object` ('') don't match 'repo_id', 'repo_name', 'default_branch', 'created_at', 'organization', 'repo_url'

`get_repos_with_code_from_orgs()` pulls minimum version of table

`get_repos()` pulls table in minimalist version

Names of `repos_object` ('') don't match 'repo_id', 'repo_name', 'default_branch', 'created_at', 'organization', 'repo_url', 'api_url', 'platform'

Error in `expect_compare(">", act, exp)`: Result of comparison must be a single logical value

Error in `if (nrow(repos_table) > 0) {
    issues <- purrr::map(repos_table$repo_id, function(repos_id) {
        id <- gsub("gid://gitlab/Project/", "", repos_id)
        issues_endpoint <- paste0(self$rest_api_url, "/projects/", 
            id, "/issues_statistics")
        self$response(endpoint = issues_endpoint)[["statistics"]][["counts"]]
    }, .progress = if (progress) {
        "Pulling repositories issues..."
    }
    else {
        FALSE
    })
    repos_table$issues_open <- purrr::map_dbl(issues, ~.$opened)
    repos_table$issues_closed <- purrr::map_dbl(issues, ~.$closed)
}`: argument is of length zero