From 672449d8a14a7df45aa656c2663f2f49a9d169be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Sat, 30 Jan 2021 14:08:48 +0100
Subject: [PATCH] remove deprecated stuff fix #99

---
 NAMESPACE                   |  2 --
 R/deprecated.R              | 57 -------------------------------------
 man/get_meetup_attendees.Rd | 29 -------------------
 man/get_meetup_comments.Rd  | 29 -------------------
 4 files changed, 117 deletions(-)
 delete mode 100644 R/deprecated.R
 delete mode 100644 man/get_meetup_attendees.Rd
 delete mode 100644 man/get_meetup_comments.Rd

diff --git a/NAMESPACE b/NAMESPACE
index 2d528a58..d1343b76 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -6,8 +6,6 @@ export(get_event_attendees)
 export(get_event_comments)
 export(get_event_rsvps)
 export(get_events)
-export(get_meetup_attendees)
-export(get_meetup_comments)
 export(get_members)
 export(get_pro_events)
 export(get_pro_groups)
diff --git a/R/deprecated.R b/R/deprecated.R
deleted file mode 100644
index 68cfda3f..00000000
--- a/R/deprecated.R
+++ /dev/null
@@ -1,57 +0,0 @@
-#' DEPRECATED: Get the comments (as a list)
-#'
-#' @param urlname The name of the group.
-#' @param api_key Your api key.
-#' @param event_id The id of the event.
-#'
-#' @examples
-#' \dontrun{
-#' urlname <- "rladies-san-francisco"
-#' api_key <- Sys.getenv("MEETUP_KEY")
-#' past_events <- get_events(urlname = urlname,
-#'                       api_key = api_key,
-#'                       event_status = "past")
-#' event_id <- past_events[[1]]$id
-#' comments <- get_meetup_comments(urlname, api_key, event_id)
-#'}
-#' @export
-get_meetup_comments <- function(urlname, api_key, event_id) {
-  .Deprecated("get_event_comments()")
-  warning("NOTE: This function will be removed in the next release.")
-  #get_event_comments(urlname = urlname, event_id = event_id, api_key = api_key)
-  api_method <- paste0(urlname, "/events/", event_id, "/comments")
-  .fetch_results(api_method, api_key)
-}
-
-
-#' DEPRECATED: Get the attendees (as a list)
-#'
-#' @param urlname The name of the group.
-#' @param api_key Your api key.
-#' @param event_id The id of the event.
-#'
-#' @examples
-#' \dontrun{
-#' urlname <- "rladies-san-francisco"
-#' api_key <- Sys.getenv("MEETUP_KEY")
-#' past_events <- get_events(urlname = urlname,
-#'                       api_key = api_key,
-#'                       event_status = "past")
-#' event_id <- past_events[[1]]$id
-#' attendees <- get_meetup_attendees(urlname, api_key, event_id)
-#'}
-#' @export
-get_meetup_attendees <- function(urlname, api_key, event_id) {
-  .Deprecated("get_event_attendees()")
-  warning("NOTE: This function will be removed in the next release.")
-  api_method <- paste0(urlname,
-                       "/events/",
-                       event_id,
-                       "/attendance")
-  .fetch_results(api_method, api_key)
-}
-
-
-
-
-
diff --git a/man/get_meetup_attendees.Rd b/man/get_meetup_attendees.Rd
deleted file mode 100644
index 5c60d974..00000000
--- a/man/get_meetup_attendees.Rd
+++ /dev/null
@@ -1,29 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/deprecated.R
-\name{get_meetup_attendees}
-\alias{get_meetup_attendees}
-\title{DEPRECATED: Get the attendees (as a list)}
-\usage{
-get_meetup_attendees(urlname, api_key, event_id)
-}
-\arguments{
-\item{urlname}{The name of the group.}
-
-\item{api_key}{Your api key.}
-
-\item{event_id}{The id of the event.}
-}
-\description{
-DEPRECATED: Get the attendees (as a list)
-}
-\examples{
-\dontrun{
-urlname <- "rladies-san-francisco"
-api_key <- Sys.getenv("MEETUP_KEY")
-past_events <- get_events(urlname = urlname,
-                      api_key = api_key,
-                      event_status = "past")
-event_id <- past_events[[1]]$id
-attendees <- get_meetup_attendees(urlname, api_key, event_id)
-}
-}
diff --git a/man/get_meetup_comments.Rd b/man/get_meetup_comments.Rd
deleted file mode 100644
index af8e834b..00000000
--- a/man/get_meetup_comments.Rd
+++ /dev/null
@@ -1,29 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/deprecated.R
-\name{get_meetup_comments}
-\alias{get_meetup_comments}
-\title{DEPRECATED: Get the comments (as a list)}
-\usage{
-get_meetup_comments(urlname, api_key, event_id)
-}
-\arguments{
-\item{urlname}{The name of the group.}
-
-\item{api_key}{Your api key.}
-
-\item{event_id}{The id of the event.}
-}
-\description{
-DEPRECATED: Get the comments (as a list)
-}
-\examples{
-\dontrun{
-urlname <- "rladies-san-francisco"
-api_key <- Sys.getenv("MEETUP_KEY")
-past_events <- get_events(urlname = urlname,
-                      api_key = api_key,
-                      event_status = "past")
-event_id <- past_events[[1]]$id
-comments <- get_meetup_comments(urlname, api_key, event_id)
-}
-}