#' 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)
}
##
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.