fix export, rm keyword-internal

Author: tanho63

NAMESPACE

@@ -4,8 +4,6 @@ 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(gh)
 export(gh_first)
 export(gh_gql)
@@ -18,6 +16,8 @@ export(gh_token)
 export(gh_token_exists)
 export(gh_tree_remote)
 export(gh_whoami)
+export(vec_cast.list.gh_response)
+export(vec_ptype2.gh_response.gh_response)
 import(rlang)
 importFrom(cli,cli_status)
 importFrom(cli,cli_status_update)

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
 vec_ptype2.gh_response.gh_response <- function(x, y, ...) {
   list()
 }
 
-#' @exportS3Method vctrs::vec_cast
-#' @keywords internal
+#' @export
 vec_cast.list.gh_response <- function(x, to, ...) {
   attributes(x) <- NULL
   x