The goal of gitear is to request your self-hosted Git service data and import it to R in a tidy data frame.
gitear is a package that communicates with the
gitea API.
You can install the development version from GitHub with:
# install.packages("devtools")devtools::install_github("ixpantia/gitear")First go to your gitea self hosted service and grab your API Token. Then you should be able to the following:
# Credentialsapi_token<-"gfdsgfd8ba18a866bsdfgsdfgs3a2dc9303453b0c92dcfb19"url_ixpantia<-"https://prueba.com"# Example function useissues<- get_issues(base_url=url_ixpantia,
api_key=api_token,
owner="empresa",
repo="repo_prueba")
issues#> number title created_date created_time updated_date#> 1 3 Primer tiquete para prueba 2020-07-15 23:43:42 2020-07-24#> 2 2 Primer tiquete para prueba 2020-07-15 23:12:37 2020-07-24#> updated_time due_date author assignee#> 1 14:41:47 2020-07-31T23:59:59Z juan juan#> 2 14:41:37 2020-07-31T23:59:59Z juan juanIn order to work with environmental variables to make your scripts safer from somebody getting your credentials, you can follow the next workflow:
- Create an .Renviron file with your credentials
- Restart your R session
- Store your credentials in an object for using it in your script
Your script could look something like this:
# Storing credentials in an objectexample_key<- Sys.getenv("example_key")
example_url<- Sys.getenv("example_url")
# Using a function from gitearissues<- get_issues(base_url=example_url,
api_key=example_key,
owner="empresa",
repo="repo_prueba")
# Check the output
glimpse(issues)
#> Rows: 2#> Columns: 9#> $ number <int> 3, 2#> $ title <chr> "Primer tiquete para prueba", "Primer tiquete para pru...#> $ created_date <chr> "2020-07-15", "2020-07-15"#> $ created_time <chr> "23:43:42", "23:12:37"#> $ updated_date <chr> "2020-07-24", "2020-07-24"#> $ updated_time <chr> "14:41:47", "14:41:37"#> $ due_date <chr> "2020-07-31T23:59:59Z", "2020-07-31T23:59:59Z"#> $ author <chr> "juan", "juan"#> $ assignee <chr> "juan", "juan"