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:
# Credentials
api_token <- "gfdsgfd8ba18a866bsdfgsdfgs3a2dc9303453b0c92dcfb19"
url_ixpantia <- "https://prueba.com"
# Example function use
issues <- get_issues(base_url = url_ixpantia,
api_key = api_token,
owner = "empresa",
repo = "repo_prueba")
issues
#> number title body created_date
#> 1 3 Primer tiquete para prueba Este es el cuerpo del tiquete 2020-07-15
#> 2 2 Primer tiquete para prueba Este es el cuerpo del tiquete 2020-07-15
#> created_time updated_date updated_time due_date author assignee
#> 1 23:43:42 2020-07-24 14:41:47 2020-07-31T23:59:59Z juan juan
#> 2 23:12:37 2020-07-24 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 object
example_key <- Sys.getenv("example_key")
example_url <- Sys.getenv("example_url")
# Using a function from gitear
issues <- get_issues(base_url = example_url,
api_key = example_key,
owner = "empresa",
repo = "repo_prueba")
# Check the output
glimpse(issues)
#> Rows: 2
#> Columns: 10
#> $ number <int> 3, 2
#> $ title <chr> "Primer tiquete para prueba", "Primer tiquete para prueba"
#> $ body <chr> "Este es el cuerpo del tiquete", "Este es el cuerpo del t…
#> $ 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"