Merge pull request #185 from Merck/bug_fix_max_null

fix bug about warning come from max(NULL)

R/prepare_ae_specific.R

@@ -171,7 +171,7 @@ prepare_ae_specific <- function(meta,
  par_n[[par_var]] <- par_n$name
  par_n <- merge(u_soc, par_n, all.y = TRUE)
  par_n$order <- 1e3 * as.numeric(factor(par_n[[par_soc]])) + seq_len(nrow(par_n))
- par_n$order[is.na(par_n$order)] <- max(soc_n$order) + 1
+ par_n$order[is.na(par_n$order)] <- (if (!all(is.na(soc_n$order))) max(soc_n$order, na.rm = TRUE) else -Inf) + 1
  par_n$name <- to_sentence(par_n$name)
  } else {
  par_n <- NULL