Merge pull request #141 from rladies/pro fix #118 #112

rewrite PRO functions to query GraphQL

Author: drmowinckels

.Rbuildignore

@@ -16,3 +16,4 @@
 ^~/\.local/share/meetupr/meetupr-token\.rds$
 ^codecov\.yml$
 ^LICENSE\.md$
+^~/Library/Application Support/meetupr/meetupr-token\.rds$

.gitignore

@@ -10,3 +10,4 @@ vignettes/*.html
 docs
 tests/testthat/.meetup_token.rds
 ~/.local/share/meetupr/meetupr-token.rds
+~/Library/Application Support/meetupr/meetupr-token.rds

DESCRIPTION

@@ -29,7 +29,6 @@ Imports:
     purrr,
     gh,
     progress,
-    tibble,
     rlang,
     rappdirs,
     glue,

NAMESPACE

@@ -1,12 +1,13 @@
 # Generated by roxygen2: do not edit by hand
 
 export(find_groups)
-export(get_boards)
 export(get_event_attendees)
 export(get_event_comments)
 export(get_event_rsvps)
 export(get_events)
 export(get_members)
+export(get_pro_events)
+export(get_pro_groups)
 export(meetup_auth)
 export(meetup_deauth)
 export(meetup_query)

R/find_groups.R

@@ -6,8 +6,9 @@
 #' @param lat Latitude. An integer
 #' @param lon Longitutde. An integer
 #' @param radius Radius. An integer
-#' @param extra_graphql A graphql object. Extra objects to return
-#' @param token Meetup token
+#' @param ... Should be empty. Used for parameter expansion
+#' @template extra_graphql
+#' @template token
 #' @importFrom anytime anytime
 #' @export
 find_groups <- function(

R/get_boards.R

@@ -1,41 +1,41 @@
-#' Get the discussion boards from a meetup group
-#'
-#' @template urlname
-#' @template verbose
-#' @return A tibble with the following columns:
-#'    * id
-#'    * name
-#'    * description
-#'    * created
-#'    * updated
-#'    * post_count
-#'    * discussion_count
-#'    * latest_reply_created
-#'    * latest_reply_member_name
-#'    * resource
-#'
-#' @references
-#' \url{https://www.meetup.com/meetup_api/docs/:urlname/boards/}
-#'@examples
-#' \dontrun{
-#' urlname <- "rladies-nashville"
-#' meetup_boards <- get_boards(urlname = urlname)
-#'}
-#' @export
-get_boards <- function(urlname,
-                       verbose = meetupr_verbose()) {
-  api_path <- paste0(urlname, "/boards")
-  res <- .fetch_results(api_path = api_path, verbose = verbose)
-  tibble::tibble(
-    id = purrr::map_int(res, "id"),
-    name = purrr::map_chr(res, "name"),
-    description = purrr::map_chr(res, "description"),
-    created = .date_helper(purrr::map_dbl(res, "created")),
-    updated = .date_helper(purrr::map_dbl(res, "updated")),
-    post_count = purrr::map_int(res, "post_count", .default = NA),
-    discussion_count = purrr::map_int(res, "discussion_count", .default = NA),
-    latest_reply_created = .date_helper(purrr::map_dbl(res, c("latest_reply", "created"), .default = NA)),
-    latest_reply_member_name = purrr::map_chr(res, c("latest_reply", "member", "name"), .default = NA),
-    resource = res
-  )
-}
+#' #' Get the discussion boards from a meetup group
+#' #'
+#' #' @template urlname
+#' #' @template verbose
+#' #' @return A tibble with the following columns:
+#' #'    * id
+#' #'    * name
+#' #'    * description
+#' #'    * created
+#' #'    * updated
+#' #'    * post_count
+#' #'    * discussion_count
+#' #'    * latest_reply_created
+#' #'    * latest_reply_member_name
+#' #'    * resource
+#' #'
+#' #' @references
+#' #' \url{https://www.meetup.com/meetup_api/docs/:urlname/boards/}
+#' #'@examples
+#' #' \dontrun{
+#' #' urlname <- "rladies-nashville"
+#' #' meetup_boards <- get_boards(urlname = urlname)
+#' #'}
+#' #' @export
+#' get_boards <- function(urlname,
+#'                        verbose = meetupr_verbose()) {
+#'   api_path <- paste0(urlname, "/boards")
+#'   res <- .fetch_results(api_path = api_path, verbose = verbose)
+#'   tibble::tibble(
+#'     id = purrr::map_int(res, "id"),
+#'     name = purrr::map_chr(res, "name"),
+#'     description = purrr::map_chr(res, "description"),
+#'     created = .date_helper(purrr::map_dbl(res, "created")),
+#'     updated = .date_helper(purrr::map_dbl(res, "updated")),
+#'     post_count = purrr::map_int(res, "post_count", .default = NA),
+#'     discussion_count = purrr::map_int(res, "discussion_count", .default = NA),
+#'     latest_reply_created = .date_helper(purrr::map_dbl(res, c("latest_reply", "created"), .default = NA)),
+#'     latest_reply_member_name = purrr::map_chr(res, c("latest_reply", "member", "name"), .default = NA),
+#'     resource = res
+#'   )
+#' }

R/get_event_attendees.R

@@ -2,8 +2,8 @@
 #'
 #' @param id Required event ID
 #' @param ... Should be empty. Used for parameter expansion
-#' @param extra_graphql A graphql object. Extra objects to return
-#' @param token Meetup token
+#' @template extra_graphql
+#' @template token
 #' @return A tibble with the following columns:
 #'    * id
 #'    * name

R/get_event_comments.R

@@ -1,9 +1,9 @@
 #' Get the comments for a specified event
 #'
-#' @param id Required event ID
+#' @template id
 #' @param ... Should be empty. Used for parameter expansion
-#' @param extra_graphql A graphql object. Extra objects to return
-#' @param token Meetup token
+#' @template extra_graphql
+#' @template token
 #' @return A tibble with the following columns:
 #'    * id
 #'    * comment

R/get_events.R

@@ -1,9 +1,9 @@
 #' Get the events from a meetup group
 #'
-#' @param urlname Required urlname of the Meetup group
+#' @template urlname
 #' @param ... Should be empty. Used for parameter expansion
-#' @param extra_graphql A graphql object. Extra objects to return
-#' @param token Meetup token
+#' @template extra_graphql
+#' @template token
 #' @export
 get_events <- function(
   urlname,

R/get_members.R

@@ -1,9 +1,9 @@
 #' Get the current meetup members from a meetup group
 #'
-#' @param urlname Required urlname of the Meetup group
+#' @template urlname
 #' @param ... Should be empty. Used for parameter expansion
-#' @param extra_graphql A graphql object. Extra objects to return
-#' @param token Meetup token
+#' @template extra_graphql
+#' @template token
 #' @return A tibble with the following columns:
 #'    * id
 #'    * name