install.packages("gitlabr")

devtools::install_github("statnmap/gitlabr")

library(gitlabr)

# You can verify your token works
# Sys.getenv("GITLAB_COM_TOKEN")

# connect as a fixed user to a GitLab instance for the session
set_gitlab_connection(
  gitlab_url = "https://gitlab.com",
  private_token = Sys.getenv("GITLAB_COM_TOKEN"))

# a tibble is returned, as is always by {gitlabr} functions
gl_list_projects(max_page = 2) 
#> # A tibble: 40 x 126
#>    id     description  name   name_with_names… path  path_with_names… created_at
#>    <chr>  <chr>        <chr>  <chr>            <chr> <chr>            <chr>     
#>  1 28518… "自动化练习" test   Amazing8 / test  test  Amazing8/test    2021-07-3…
#>  2 28518… ""           proje… helma saboor / … proj… helma-programme… 2021-07-3…
#>  3 28518… ""           OxSwi… Piyathida Jikja… oxsw… Bestkilled/oxsw… 2021-07-3…
#>  4 28518… ""           test_2 thanhbinhhd197 … test… thanhbinhhd197/… 2021-07-3…
#>  5 28518… ""           Creat… android_flutter… crea… android_flutter… 2021-07-3…
#>  6 28518… ""           week5… flutter / week5… week… flutter149/week… 2021-07-3…
#>  7 28518… ""           java-… Simona Coptil /… java… coptils/java-fu… 2021-07-3…
#>  8 28518… ""           Minec… Tim Weyand / Mi… mine… tim.weyand/mine… 2021-07-3…
#>  9 28518… "node serve… giova… Palmer Oliveira… giov… expalmer/giovana 2021-07-3…
#> 10 28518… ""           Weath… raia paturet / … weat… raia-paturet/we… 2021-07-3…
#> # … with 30 more rows, and 119 more variables: default_branch <chr>,
#> #   ssh_url_to_repo <chr>, http_url_to_repo <chr>, web_url <chr>,
#> #   readme_url <chr>, forks_count <chr>, star_count <chr>,
#> #   last_activity_at <chr>, namespace.id <chr>, namespace.name <chr>,
#> #   namespace.path <chr>, namespace.kind <chr>, namespace.full_path <chr>,
#> #   namespace.avatar_url <chr>, namespace.web_url <chr>,
#> #   container_registry_image_prefix <chr>, _links.self <chr>,
#> #   _links.issues <chr>, _links.merge_requests <chr>,
#> #   _links.repo_branches <chr>, _links.labels <chr>, _links.events <chr>,
#> #   _links.members <chr>, packages_enabled <chr>, empty_repo <chr>,
#> #   archived <chr>, visibility <chr>, owner.id <chr>, owner.name <chr>,
#> #   owner.username <chr>, owner.state <chr>, owner.avatar_url <chr>,
#> #   owner.web_url <chr>, resolve_outdated_diff_discussions <chr>,
#> #   container_expiration_policy.cadence <chr>,
#> #   container_expiration_policy.enabled <chr>,
#> #   container_expiration_policy.keep_n <chr>,
#> #   container_expiration_policy.older_than <chr>,
#> #   container_expiration_policy.name_regex <chr>,
#> #   container_expiration_policy.next_run_at <chr>, issues_enabled <chr>,
#> #   merge_requests_enabled <chr>, wiki_enabled <chr>, jobs_enabled <chr>,
#> #   snippets_enabled <chr>, container_registry_enabled <chr>,
#> #   service_desk_enabled <chr>, service_desk_address <chr>,
#> #   can_create_merge_request_in <chr>, issues_access_level <chr>,
#> #   repository_access_level <chr>, merge_requests_access_level <chr>,
#> #   forking_access_level <chr>, wiki_access_level <chr>,
#> #   builds_access_level <chr>, snippets_access_level <chr>,
#> #   pages_access_level <chr>, operations_access_level <chr>,
#> #   analytics_access_level <chr>, shared_runners_enabled <chr>,
#> #   lfs_enabled <chr>, creator_id <chr>, import_status <chr>,
#> #   open_issues_count <chr>, ci_default_git_depth <chr>,
#> #   ci_forward_deployment_enabled <chr>, ci_job_token_scope_enabled <chr>,
#> #   public_jobs <chr>, build_timeout <chr>,
#> #   auto_cancel_pending_pipelines <chr>, ci_config_path <chr>,
#> #   only_allow_merge_if_pipeline_succeeds <chr>,
#> #   restrict_user_defined_variables <chr>, request_access_enabled <chr>,
#> #   only_allow_merge_if_all_discussions_are_resolved <chr>,
#> #   remove_source_branch_after_merge <chr>,
#> #   printing_merge_request_link_enabled <chr>, merge_method <chr>,
#> #   squash_option <chr>, auto_devops_enabled <chr>,
#> #   auto_devops_deploy_strategy <chr>, autoclose_referenced_issues <chr>,
#> #   keep_latest_artifact <chr>, approvals_before_merge <chr>, mirror <chr>,
#> #   external_authorization_classification_label <chr>,
#> #   requirements_enabled <chr>, security_and_compliance_enabled <chr>,
#> #   merge_pipelines_enabled <chr>, merge_trains_enabled <chr>,
#> #   namespace.parent_id <chr>, avatar_url <chr>, forked_from_project.id <chr>,
#> #   forked_from_project.description <chr>, forked_from_project.name <chr>,
#> #   forked_from_project.name_with_namespace <chr>,
#> #   forked_from_project.path <chr>,
#> #   forked_from_project.path_with_namespace <chr>,
#> #   forked_from_project.created_at <chr>,
#> #   forked_from_project.default_branch <chr>, …

my_project <- 20384533 #repo.rtask",

gitlabr_options_set("gitlabr.main", "master")

gl_list_files(project = my_project)
#> # A tibble: 2 x 5
#>   id                                       name        type  path        mode  
#>   <chr>                                    <chr>       <chr> <chr>       <chr> 
#> 1 9c66eff9a1f6f34b6d9108ef07d76f8ce4c4e47f NEWS.md     blob  NEWS.md     100644
#> 2 c36b681bb31b80cbd090f07c95f09788c88629a6 example.txt blob  example.txt 100644

gl_list_issues(project = my_project)
#> # A tibble: 2 x 35
#>   id    iid   project_id title description state created_at updated_at author.id
#>   <chr> <chr> <chr>      <chr> <chr>       <chr> <chr>      <chr>      <chr>    
#> 1 6952… 2     20384533   A se… The blog p… open… 2020-08-0… 2020-08-0… 4809823  
#> 2 6952… 1     20384533   An e… No desc in… open… 2020-08-0… 2020-08-0… 4809823  
#> # … with 26 more variables: author.name <chr>, author.username <chr>,
#> #   author.state <chr>, author.avatar_url <chr>, author.web_url <chr>,
#> #   type <chr>, user_notes_count <chr>, merge_requests_count <chr>,
#> #   upvotes <chr>, downvotes <chr>, confidential <chr>, issue_type <chr>,
#> #   web_url <chr>, time_stats.time_estimate <chr>,
#> #   time_stats.total_time_spent <chr>, task_completion_status.count <chr>,
#> #   task_completion_status.completed_count <chr>, blocking_issues_count <chr>,
#> #   has_tasks <chr>, _links.self <chr>, _links.notes <chr>,
#> #   _links.award_emoji <chr>, _links.project <chr>, references.short <chr>,
#> #   references.relative <chr>, references.full <chr>

# create a new issue
new_feature_issue <- gl_create_issue(project = my_project, title = "Implement new feature")

# statnmap user ID
my_id <- 4809823

# assign issue to me
gl_assign_issue(project = my_project,
                issue_id = new_feature_issue$iid,
                assignee_id = my_id)

# Verify new issue is here
gl_list_issues(project = my_project, state = "opened")

# close issue
gl_close_issue(project = my_project, issue_id = new_feature_issue$iid)$state

gitlab(
  req = "projects",
  verb = httr::POST,
  name = "toto",
  default_branch = "main"
)

unset_gitlab_connection()