R/sig-sitevisitpeak.R

In USGS-R/repgen: USGS internal report generation

#' Site Visit Peak Report
#' 
#' @param data Local data (as list), or URL.
#' @param ... everythingn else
#' @rdname sitevisitpeak
#' @importFrom rmarkdown render
#' @importFrom jsonlite fromJSON
#' @examples
#' library(jsonlite)
#' library(dplyr)
#' 
#'  data <-
#'   fromJSON(
#'     system.file(
#'       'extdata', 'sitevisitpeak', "sitevisitpeak-example.json", package = 'repgen'
#'     )
#'   )
#' sitevisitpeak(data, 'Author Name')
#' @rdname sitevisitpeak
#' @export
setGeneric(name="sitevisitpeak",def=function(data, ...){standardGeneric("sitevisitpeak")})

#'@aliases sitevisitpeak
#'@rdname sitevisitpeak

setMethod("sitevisitpeak", signature = c("list"), 
          definition = function(data, ...) {
            author <- list(...)
            return(startRender(data, author, 'sitevisitpeak'))
          }
)