Fixed check errors

Author: robjhyndman

DESCRIPTION

@@ -28,6 +28,7 @@ Imports:
     ctv,
     tidyr,
     scales,
+    texor,
     tinytex,
     xfun
 Suggests:
@@ -40,5 +41,5 @@ Suggests:
     callr,
     ggplot2
 Encoding: UTF-8
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 VignetteBuilder: knitr

NAMESPACE

@@ -1,6 +1,8 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(as.character,id)
+S3method(as.data.frame,status_list)
+S3method(c,status)
 S3method(empty,"NULL")
 S3method(empty,address_list)
 S3method(empty,character)
@@ -9,6 +11,9 @@ S3method(format,address_list)
 S3method(format,article)
 S3method(format,id)
 S3method(format,status)
+S3method(format,status_list)
+S3method(format,supplfile)
+S3method(format,supplfile_list)
 S3method(format,unparsed)
 S3method(print,address)
 S3method(print,address_list)
@@ -17,6 +22,8 @@ S3method(print,catout)
 S3method(print,id)
 S3method(print,report)
 S3method(print,status)
+S3method(print,status_list)
+export("%>%")
 export(AE)
 export(AEs)
 export(abandon_reviewer)
@@ -105,7 +112,7 @@ importFrom(dplyr,right_join)
 importFrom(dplyr,select)
 importFrom(dplyr,ungroup)
 importFrom(gmailr,create_draft)
-importFrom(gmailr,gmail_auth)
+importFrom(gmailr,gm_auth_configure)
 importFrom(gmailr,mime)
 importFrom(gmailr,send_draft)
 importFrom(googlesheets4,range_write)

R/article.R

@@ -133,11 +133,13 @@ parse_supplementaries <- function(suppl) {
   xs
 }
 
+#' @export
 format.supplfile_list <- function(x, ...) {
   suppls <- lapply(x, format)
   paste(suppls, collapse = ",\n  ")
 }
 
+#' @export
 format.supplfile <- function(x, ...) {
   paste0(x)
 }

R/email.R

@@ -143,9 +143,9 @@ as.data <- function(x) {
   data
 }
 
-#' @importFrom utils read.csv
-#' @param by.name logical, if \code{TRUE} then names are names and
-#'     values e-mails, otherwise names are e-mails and values names
+# @importFrom utils read.csv
+# @param by.name logical, if \code{TRUE} then names are names and
+#     values e-mails, otherwise names are e-mails and values names
 editors <- function(by.name=FALSE) {
   cli::cli_alert_info("Reading inst/editor.csv")
   fname <- system.file("editors.csv", package = "rj")

R/issue.R

@@ -2,7 +2,7 @@
 #'
 #' The `make_proof()` function is the first step to creating an issue. It moves
 #' the 'proofed' articles from the `Accepted` folder and news articles from
-#' `News_items/{id}` into `Proofs/{id}`.
+#' `News_items/\{id\}` into `Proofs/\{id\}`.
 #'
 #' After the proof is made with this function, `publish_issue()` can be used to
 #' publish these articles into the `rjournal.github.io` repository.

R/rj.R

@@ -1,9 +1,13 @@
 #' R Journal Package
 #'
-#' @description A package to make it easier to work with the R-journal dcf files.
-#' @docType package
+#' @keywords package
 #' @name rj
+"_PACKAGE"
+
 #' @import stringr
 #' @import rlang
 #' @import fs
-NULL
+#' @importFrom utils read.csv
+
+#' @export
+dplyr::`%>%`

R/status.R

@@ -81,6 +81,7 @@ status <- function(status, date = Sys.Date(), comments = "") {
 is.status <- function(x) inherits(x, "status")
 
 
+#' @export
 c.status <- c.status_list <- function(..., recursive = FALSE) {
   pieces <- list(...)
   statuses <- lapply(pieces, function(x) {
@@ -187,11 +188,13 @@ status_list <- function(x = list()) {
   structure(x, class = "status_list")
 }
 
+#' @export
 format.status_list <- function(x, ...) {
   statuses <- lapply(x, format)
   paste(statuses, collapse = ",\n  ")
 }
 
+#' @export
 print.status_list <- function(x, ...) {
   statuses <- lapply(x, format)
   cat(paste(statuses, collapse = "\n"))
@@ -237,9 +240,10 @@ parse_status <- function(x) {
   status(status = status, date = date, comments = comments)
 }
 
-as.data.frame.status_list <- function(status_list) {
+#' @export
+as.data.frame.status_list <- function(x, ...) {
   message("DF")
-  ml <- vector(mode = "list", length = length(status_list))
-  for (i in seq(along = ml)) ml[[i]] <- as.data.frame(unclass(status_list[[i]]))
+  ml <- vector(mode = "list", length = length(x))
+  for (i in seq(along = ml)) ml[[i]] <- as.data.frame(unclass(x[[i]]))
   do.call("rbind", ml)
 }