R/nwos_table_row.R

In familyforestresearchcenter/nwos: An R Package for Working with USDA Forest Service, National Woodland Owner Survey Data

#' nwos.table.row
#'
#' Create the body of an NWOS table
#' @details For area and cooperation rate tables see ...
#' nwos.table.row(data.row = data[1,])
#' @export

nwos_table_row <- function(i, data) {
  paste0(if((i %% 2) == 1) "\\rowcolor{gray!25} ",
         "\\raggedright \\hspace*{1em} \\hangindent=1.4em ", data$LABEL[i], " & ",
         nwos_table_number(data$AC[i]), " & ", nwos_table_number(data$AC_SE[i]), " & ",
         nwos_table_number(data$OWN[i]), " & ", nwos_table_number(data$OWN_SE[i]), " & ",
         nwos_table_number(data$AC_PERC[i]), " & ", nwos_table_number(data$AC_PERC_SE[i]), " & ",
         nwos_table_number(data$OWN_PERC[i]), " & ", nwos_table_number(data$OWN_PERC_SE[i]), " & ",
         nwos_table_number(data$N[i], less.one = F), " \\\\")}