Release 2.2.0

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: GitStats
 Title: Standardized Git Repository Data
-Version: 2.1.2
+Version: 2.2.0
 Authors@R: c(
     person(given = "Maciej", family = "Banas", email = "banasmaciek@gmail.com", role = c("aut", "cre")),
     person(given = "Kamil", family = "Koziej", email = "koziej.k@gmail.com", role = "aut"),

NAMESPACE

@@ -5,8 +5,7 @@ export(create_gitstats)
 export(get_R_package_usage)
 export(get_commits)
 export(get_commits_stats)
-export(get_files_content)
-export(get_files_structure)
+export(get_files)
 export(get_release_logs)
 export(get_repos)
 export(get_repos_urls)
@@ -42,6 +41,7 @@ importFrom(purrr,map)
 importFrom(purrr,map_chr)
 importFrom(rlang,"%||%")
 importFrom(rlang,expr)
+importFrom(stats,runif)
 importFrom(stringr,str_length)
 importFrom(stringr,str_replace)
 importFrom(utils,URLdecode)

NEWS.md

@@ -1,3 +1,26 @@
+# GitStats 2.2.0
+
+This release brings some substantial improvements with making it possible to scan whole organizations and particular repositories for one host at the same time, boosting function to prepare commits statistics and simplifying workflow for getting files.
+
+## Features:
+
+- From now on it is possible to pass `orgs` and `repos` in `set_*_host()` functions ([#400](https://github.com/r-world-devs/GitStats/issues/400)).
+- Improved `get_commits_stats()` function ([#556](https://github.com/r-world-devs/GitStats/issues/556), [#557](https://github.com/r-world-devs/GitStats/issues/557)) with:
+  - giving possibility to customize grouping variable by passing it with the `group_var` parameter,
+  - changing name of the `time_interval` parameter to `time_aggregation`,
+  - adding `yearly` aggregation to `time_aggregation` parameter,
+  - changing basic input from `GitStats` to `commits_data` object which allows to build workflow in one pipeline (`create_gitstats() |> set_*_host() |> get_commits() |> get_commits_stats()`).
+- Merged two functions `get_files_content()` and `get_files_structure()` into one `get_files()` ([#564](https://github.com/r-world-devs/GitStats/issues/564)).
+- Add `.error` parameter to the `set_*_host()` functions to control if error should pop up when wrong input is passed ([#547](https://github.com/r-world-devs/GitStats/issues/547)).
+
+## Fixes:
+
+- Fixed pulling commits for GitLab subgroups when repositories are set as scope to scan ([#551](https://github.com/r-world-devs/GitStats/issues/551)).
+- Filled more information on `author_name` and `author_login` if it was missing in `commits_table` ([#550](https://github.com/r-world-devs/GitStats/issues/550)).
+- Handled a `GraphQL` response error when pulling repositories with R error. Earlier, `GitStats` just returned empty table with no clue on what has happened, as errors from `GraphQL` are returned as list outputs (they do not break code).
+- Fixed getting R package usage when repositories are set ([#548](https://github.com/r-world-devs/GitStats/issues/548)).
+- Added possibility to pass GitHub users to `orgs` parameter in `set_github_host()` ([#562](https://github.com/r-world-devs/GitStats/issues/562)).
+
 # GitStats 2.1.2
 
 This is a patch release which introduces some hot fixes and new data in `get_commits()` output.

R/EngineGraphQL.R

@@ -56,23 +56,25 @@ EngineGraphQL <- R6::R6Class(
         httr2::req_body_json(list(query = gql_query, variables = vars)) %>%
         httr2::req_retry(
           is_transient = ~ httr2::resp_status(.x) %in% c(400, 502),
-          max_seconds = 30
+          max_seconds = 60
         ) %>%
         httr2::req_perform()
       return(response)
     },
+
     is_query_error = function(response) {
       check <- FALSE
       if (length(response) > 0) {
-        check <- names(response) == "errors"
+        check <- any(names(response) == "errors")
       }
       return(check)
     },
+
     filter_files_by_pattern = function(files_structure, pattern) {
-      files_structure[grepl(pattern, files_structure)]
+      files_structure[grepl(paste0(pattern, collapse = "|"), files_structure)]
     },
+
     get_path_from_files_structure = function(host_files_structure,
-                                             only_text_files,
                                              org,
                                              repo = NULL) {
       if (is.null(repo)) {
@@ -82,9 +84,7 @@ EngineGraphQL <- R6::R6Class(
       } else {
         file_path <- host_files_structure[[org]][[repo]]
       }
-      if (only_text_files) {
-        file_path <- file_path[!grepl(non_text_files_pattern, file_path)]
-      }
+      file_path <- file_path[grepl(text_files_pattern, file_path)]
       return(file_path)
     }
   )