R/empty_entry_all.R

In thomasgstewart/ahsqc: Functions Specific to AHSQC Operations

#' Creates an empty entry in table
#'
#' @param out empty vector
#' @param dt data table
#' @param fill string
#'
#' @details
#'
#' @keywords AHSQC
#' @export
#' @examples
#' # Not run:

empty_entry_all <- function(out , dt, fill = ""){
  dt <- dt %>% mutate(y = "all")
  d2 <- eval(substitute(dt[,.(j = 1, y)]))
  d2[[1]] <- ahsqc_label(d2[[1]], "J")
  d2[[1]][1] <- 0
  addout <- eval(substitute(cat_entry_all(list(),j, d2)))[[1]][1:2, ]
  addout[2,] <- ""
  for(j in 1:min(length(fill),ncol(addout))) addout[2, j] <- fill[j]
  
  if(length(out)>0) addout <- addout[-1,]
  out[[length(out)+1]] <- addout
  return(out)
}