R/post_github_issue.R

In vgherard/scribblr: A Notepad Inside RStudio

post_github_issue <- function(title, body) {

	ght <- gh::gh_tree_remote()
	title <- URLencode(title)
	body <- URLencode(body, reserved = TRUE)

	url <- sprintf("https://github.com/%s/%s/issues/new?title=%s&body=%s",
				   ght[["username"]], ght[["repo"]], title, body)
	browseURL(url)

}