Finishi respond to CRAN comments

See cran-comments.md for more detail.

- Give all functions \values
- Boost up examples a bit

Author: amoeba

DESCRIPTION

@@ -24,7 +24,7 @@ Suggests: askpass,
   testthat,
   tibble
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.0.2
+RoxygenNote: 7.1.0
 VignetteBuilder: knitr
 Encoding: UTF-8
 LazyData: true

R/rt_login.R

@@ -11,6 +11,7 @@
 #' @param password (character) Your password.
 #' @param ... Other arguments passed to \code{\link{rt_POST}}
 #'
+#' @return Either `TRUE`, invisibly, if logged in, or throws an error.
 #' @export
 #'
 #' @examples

R/rt_logout.R

@@ -4,6 +4,7 @@
 #' Note: restarting your R session will also log you out.
 #'
 #' @param ... Other arguments passed to \code{\link{rt_POST}}
+#
 #' @return (rt_api) The parsed response from RT
 #'
 #' @export

R/rt_queue_properties.R

@@ -3,6 +3,8 @@
 #' @param queue (character) The queue
 #' @param ... Other arguments passed to \code{\link{rt_GET}}
 #'
+#' @return (list) A list of queue properties
+#'
 #' @export
 #'
 #' @examples

R/rt_ticket_attachment.R

@@ -7,11 +7,18 @@
 #' @param attachment_id (numeric) The attachment identifier
 #' @param ... Other arguments passed to \code{\link{rt_GET}}
 #'
+#' @return (rt_api) An `rt_api` object with the response
+#'
 #' @export
 #'
 #' @examples
 #' \dontrun{
-#' rt_ticket_attachment(2, 1)
+#' # Before running rt_ticket_attachment, you'll probably want to get a list of
+#' # the attachments for a given ticket, like:
+#' attachments <- rt_ticket_attachments(1) # Ticket ID 1
+#'
+#' # And then you can get information about a specific attachment:
+#' rt_ticket_attachment(1, 3) # Attachment 3 on ticket 1
 #' }
 rt_ticket_attachment <- function(ticket_id,
                                  attachment_id,

R/rt_ticket_attachment_content.R

@@ -8,7 +8,8 @@
 #' @inheritParams rt_ticket_attachment
 #' @param ... Other arguments passed to \code{\link{rt_GET}}
 #'
-#' @return (response) A `response` object with the response
+#' @return (rt_api) An `rt_api` object with the response
+#'
 #' @export
 #'
 #' @examples

R/rt_ticket_history.R

@@ -6,14 +6,16 @@
 #'   Defaults to \code{l}.
 #' @param ... Other arguments passed to \code{\link{rt_GET}}
 #'
+#' @return (rt_api) An `rt_api` object with the response
+#'
 #' @export
 #'
 #' @examples
 #' \dontrun{
-#' # Get the full ticket history
+#' # Get the full ticket history for ticket 992
 #' rt_ticket_history(992)
 #'
-#' # Get just the ticket ID and subject
+#' # Get just the ticket ID and subject for ticket 992
 #' rt_ticket_history(992, format = "s")
 #' }
 rt_ticket_history <- function(ticket_id, format = "l", ...) {

R/rt_ticket_history_reply.R

@@ -14,6 +14,7 @@
 #'
 #' @examples
 #' \dontrun{
+#' # Reply to ticket 11 with a courteous message
 #' rt_ticket_history_reply(11,
 #'                         "Thank you.
 #'

R/rt_ticket_links.R

@@ -8,10 +8,13 @@
 #' @inheritParams rt_ticket_attachment
 #' @param ... Other arguments passed to \code{\link{rt_GET}}
 #'
+#' @return (rt_api) An `rt_api` object with the response
+#'
 #' @export
 #'
 #' @examples
 #' \dontrun{
+#' # Assuming have a ticket with id 1007, we can get it links by calling
 #' rt_ticket_links(1007)
 #' }
 rt_ticket_links <- function(ticket_id, ...) {

R/rt_ticket_links_edit.R

@@ -14,7 +14,8 @@
 #'
 #' @examples
 #' \dontrun{
-#' # Make ticket 20 depend on ticket 21
+#' # Assuming we have tickets 20 and 21, we can make ticket 20 depend on ticket
+#' # 21
 #' rt_ticket_links_edit(20, depends_on = 21)
 #' }
 #'