R/new_output.R

In dKvale/aermod: Interface to EPA's air dispersion model AERMOD

#' Output options
#'
#' Create a data frame of AERMOD output options.
#' @param rect_table Output options as text. Enter multiple options as a vector: \code{c("ALLAVE 1ST", "1 1ST")} 
#' @param max_table Output options as text. 
#' @param day_table Output options as text.   
#' @param file_from Output options as text.
#' @param rank_file Output options as text.
#' @param plot_file Output options as text. 
#' @keywords output aermod 
#' @export
#' @examples
#' new_output(rect_table = "ALLAVE 1ST, 1 1ST 8TH")
# 
#

new_output <- function(rect_table = "ALLAVE 1ST, 1 1ST",
                       max_table  = as.character(NA),
                       day_table  = as.character(NA),
                       file_form  = as.character(NA),
                       rank_file  = as.character(NA),
                       plot_file  = as.character(NA)
                       ) {

df <- tibble::tibble(rect_table = rect_table, 
                     max_table  = max_table,
                     day_table  = day_table,
                     file_form  = file_form,
                     rank_file  = rank_file,
                     plot_file  = plot_file)
 
return(df)

}

##