fix export, rm keyword-internal

Author: tanho63

NAMESPACE

@@ -4,8 +4,8 @@ S3method(format,gh_pat)
 S3method(print,gh_pat)
 S3method(print,gh_response)
 S3method(str,gh_pat)
-S3method(vctrs::vec_cast,list.gh_response)
-S3method(vctrs::vec_ptype2,gh_response.gh_response)
+export("vctrs::vec_cast")
+export("vctrs::vec_ptype2")
 export(gh)
 export(gh_first)
 export(gh_gql)

R/gh_response.R

@@ -46,14 +46,12 @@ remove_headers <- function(x) {
 # Add vctrs methods that strip attributes from gh_response when combining,
 # enabling rectangling via unnesting etc
 # See <https://github.com/r-lib/gh/issues/161> for more details
-#' @exportS3Method vctrs::vec_ptype2
-#' @keywords internal
+#' @export vctrs::vec_ptype2
 vec_ptype2.gh_response.gh_response <- function(x, y, ...) {
   list()
 }
 
-#' @exportS3Method vctrs::vec_cast
-#' @keywords internal
+#' @export vctrs::vec_cast
 vec_cast.list.gh_response <- function(x, to, ...) {
   attributes(x) <- NULL
   x