Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Master list of most-requested issues #3189

Open
22 of 76 tasks
MichaelChirico opened this issue Dec 6, 2018 · 3 comments
Open
22 of 76 tasks

Master list of most-requested issues #3189

MichaelChirico opened this issue Dec 6, 2018 · 3 comments

Comments

@MichaelChirico
Copy link
Member

MichaelChirico commented Dec 6, 2018

Redirecting from post at /orgs/.../discussions. Inspired by happening to notice an issue getting more support (through GitHub reactions) and borrowing the idea to scrape the GH API from this nice article over at tidyverse. Here are all open issues with at least 5 positive reactions:


Fulfilled already

Separately for fread since there are many:

Please note that upvoting/reacting to this issue will make the universe collapse, probably.

Code to reproduce:

library(gh)
library(data.table)
# reactions API is "in development" so requires special header:
react_header = 'application/vnd.github.squirrel-girl-preview+json'

repo = 'Rdatatable/data.table'
issue_query_fmt = "/repos/%s/issues?state=open&per_page=100&page=%d"
issues = list()
page = 1L
repeat {
  cat(sprintf("Reading page %d\n", page))
  resp <- gh(sprintf(issue_query_fmt, repo, page), .send_headers = c(Accept = react_header))
  if (!length(resp)) break
  issues = c(issues, resp)
  page = page + 1L
}
    
# filter pull requests
issues = issues[sapply(issues, function(issue) is.null(issue$pull_request))]
names(issues) = as.character(sapply(issues, `[[`, 'number'))

reactions = rbindlist(lapply(issues, `[[`, 'reactions'))

reactions[ , issue := gsub('.*issues/([0-9]+)/reactions', '\\1', url)]
reactions[ , url := NULL]
reactions[ , positive := total_count - `-1` - confused]
reactions[ , setdiff(names(reactions), c('issue', 'positive')) := NULL]

reactions[ , title := sapply(issues[issue], `[[`, 'title')]

# don't include this issue...
reactions[order(-positive)][positive >= 5 & issue != '3189']
@sritchie73 sritchie73 pinned this issue Dec 21, 2018
@sritchie73

This comment has been minimized.

@grantmcdermott

This comment was marked as resolved.

@MichaelChirico MichaelChirico pinned this issue Sep 9, 2022
@MichaelChirico

This comment was marked as resolved.

@jangorecki jangorecki unpinned this issue Oct 6, 2022
@jangorecki jangorecki pinned this issue Jan 7, 2024
@Anirban166 Anirban166 unpinned this issue Jul 16, 2024
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

3 participants