"per_page" is not a permitted key about projmgr HOT 6 CLOSED

plan_path <- system.file("extdata", "plan.yml", package = "projmgr", mustWork = TRUE)
my_plan <- read_plan(plan_path)
str(my_plan)
# List of 2
#  $ :List of 4
#   ..$ title      : chr "Data cleaning and validation"
#   ..$ description: chr "We will conduct data quality checks, resolve issues with data quality, and document this process\n"
#   ..$ due_on     : chr "2018-12-31T12:59:59Z"
#   ..$ issue      :List of 3
#   .. ..$ :List of 4
#   .. .. ..$ title    : chr "Define data quality standards"
#   .. .. ..$ body     : chr "List out decision rules to check data quality"
#   .. .. ..$ assignees: chr "emilyriederer"
#   .. .. ..$ labels   : chr [1:3] "a" "b" "c"
#   .. ..$ :List of 3
#   .. .. ..$ title : chr "Assess data quality"
#   .. .. ..$ body  : chr "Use assertthat to test decision rules on dataset"
#   .. .. ..$ labels: chr "low"
#   .. ..$ :List of 2
#   .. .. ..$ title: chr "Resolve data quality issues"
#   .. .. ..$ body : chr "Conduct needed research to resolve any issues"
#  $ :List of 3
#   ..$ title      : chr "Exploratory data analysis"
#   ..$ description: chr "Create basic statistics and views to better understand dataset and relationships\n"
#   ..$ issue      :List of 2
#   .. ..$ :List of 2
#   .. .. ..$ title: chr "Summary statistics"
#   .. .. ..$ body : chr "Calculate summary statistics"
#   .. ..$ :List of 2
#   .. .. ..$ title: chr "Visualizations"
#   .. .. ..$ body : chr "Create univariate and bivariate plots"
#  - attr(*, "class")= chr [1:2] "plan" "list"

## change assignees to me
my_plan[1][[1]]$issue[[1]]$assignees <- "Bartesto"

print(my_plan)
# Plan: 
# 1. Data cleaning and validation (3 issues) 
# 2. Exploratory data analysis (2 issues)

## create own repo ref
experigit <- create_repo_ref("Bartesto", "rivRmon_development")
# Requests will authenticate with GITHUB_PAT

check_credentials(experigit)
# -- With provided credentials -- 
# + Login: Bartesto
# + Type: User
# -- In the rivRmon_development repo -- 
# + Admin: TRUE
# + Push: TRUE
# + Pull: TRUE

post_plan(experigit, my_plan)
# Error in gh_process_response(raw) : 
# GitHub API error (422): 422 Unprocessable Entity
# Message: Invalid request.

# "per_page" is not a permitted key.
# Read more at https://developer.github.com/v3/issues/milestones/#create-a-milestone

plan_yaml_vbl <- "
milestone1:
  title: First draft
  body: Complete the first draft of this paper for review

milestone2:
  title: Make revisions
  body: Repsond to feedback from reviewers
"
plan_from_vbl <- read_plan(plan_yaml_vbl)
str(plan_from_vbl)
# List of 2
#  $ milestone1:List of 2
#   ..$ title: chr "First draft"
#   ..$ body : chr "Complete the first draft of this paper for review"
#  $ milestone2:List of 2
#   ..$ title: chr "Make revisions"
#   ..$ body : chr "Repsond to feedback from reviewers"
#  - attr(*, "class")= chr [1:2] "plan" "list"

post_plan(experigit, plan_from_vbl)
# Error in gh_process_response(raw) : 
# GitHub API error (422): 422 Unprocessable Entity
# Message: Invalid request.

# "per_page" is not a permitted key.
# Read more at https://developer.github.com/v3/issues/milestones/#create-a-milestone

template_yaml("plan")
# created a yaml called template_yaml.yml without adding anything
my_plan2 <- read_plan("./template_yaml.yml")
str(my_plan2)
# List of 2
#  $ :List of 4
#   ..$ title      : chr "Enter a short, informative title of your goal"
#   ..$ description: chr "Enter a longer description of the objectives\n"
#   ..$ due_on     : chr "2018-12-31T12:59:59Z"
#   ..$ issue      :List of 2
#   .. ..$ :List of 4
#   .. .. ..$ title    : chr "Title of task 1 to complete"
#   .. .. ..$ body     : chr "Describe this step"
#   .. .. ..$ assignees: chr "emilyriederer"
#   .. .. ..$ labels   : chr [1:3] "a" "b" "c"
#   .. ..$ :List of 3
#   .. .. ..$ title : chr "Title of task 2 to complete"
#   .. .. ..$ body  : chr "Describe this step"
#   .. .. ..$ labels: chr "low"
#  $ :List of 3
#   ..$ title      : chr "Enter another short, informative title of your goal"
#   ..$ description: chr "Enter a longer description of the objectives\n"
#   ..$ issue      :List of 2
#   .. ..$ :List of 2
#   .. .. ..$ title: chr "Title of task 1 to complete for step 2"
#   .. .. ..$ body : chr "Describe this step"
#   .. ..$ :List of 2
#   .. .. ..$ title: chr "Title of task 2 to complete for step 2"
#   .. .. ..$ body : chr "Describe this step"
#  - attr(*, "class")= chr [1:2] "plan" "list"

print(my_plan2)
# Plan: 
# 1. Enter a short, informative title of your goal (2 issues) 
# 2. Enter another short, informative title of your goal (2 issues) 

post_plan(experigit, my_plan2)
# Error in gh_process_response(raw) : 
# GitHub API error (422): 422 Unprocessable Entity
# Message: Invalid request.

# "per_page" is not a permitted key.
# Read more at https://developer.github.com/v3/issues/milestones/#create-a-milestone

sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19041)

Matrix products: default

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252   
[3] LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                      
[5] LC_TIME=English_Australia.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] projmgr_0.1.0

loaded via a namespace (and not attached):
 [1] httr_1.4.1       compiler_3.5.2   R6_2.4.1         assertthat_0.2.1
 [5] magrittr_1.5     cli_2.0.1        tools_3.5.2      glue_1.3.1      
 [9] rstudioapi_0.11  curl_4.3         yaml_2.2.1       crayon_1.3.4    
[13] gh_1.1.0         fansi_0.4.1      jsonlite_1.6.1   packrat_0.5.0  

devtools::install_github('emilyriederer/projmgr', ref = 'next-release')
library(projmgr)
plan_path <- system.file("extdata", "plan.yml", package = "projmgr", mustWork = TRUE)
my_plan <- read_plan(plan_path)
repo <- create_repo_ref('emilyriederer', 'experigit')
post_plan(repo, my_plan)