remotes::install_github("ropenscilabs/ghrecipes")

ghrecipes::get_issue_labels_state("ropensci", "ozunconf18")

ozunconf18_issues <- ghrecipes::get_issues_thumbs("ropensci",
                                                  "ozunconf18")

View(ozunconf18_issues)

ozunconf18_issues$title[1]
ozunconf18_issues$author[1]
ozunconf18_issues$number[1]
ozunconf18_issues$body[1]

issue_1 <-
ghrecipes::get_issue_thread(owner = "ropensci",
                            repo = "ozunconf18",
                            issue_id = ozunconf18_issues$number[1])

library(purrr)
all_issues <- map_dfr(ozunconf18_issues$number,
                  ~ghrecipes::get_issue_thread(owner = "ropensci",
                                               repo = "ozunconf18",
                                               issue_id = .),
                  )

View(all_issues)

# simplify the issues to the first body text
library(dplyr)
all_issues_first_thread <- all_issues %>%
  group_by(title) %>%
  slice(1)

# output each issue into a markdown thread
issue_threads <-
glue::glue("# {all_issues_first_thread$title}
### {all_issues_first_thread$author} (Issue # \\
{all_issues_first_thread$issue})

{all_issues_first_thread$body}

================================
\n")

# create a directory and dump the contents of the issues into it
fs::dir_create("issues")
sink("issues/issue-list.md")
cat(issue_threads)
sink()

# next steps
# upload this as a rendered google doc
# manually increase the size of font, trim down issue