« first day (1733 days earlier)      last day (1557 days later) » 

3:07 AM
This guy is pretty worked up about his question stackoverflow.com/q/59795575/5325862
 
 
9 hours later…
12:02 PM
@zx8754 another option would be to compose a custom function:
library(data.table)
library(matrixStats)

pval_cols <- grep("Pvalue", names(dt1), fixed = TRUE, value = TRUE)

min_fun <- function(x) {
  y <- tstrsplit(x, split = ",", fixed = TRUE)
  y <- rowMins(sapply(y, as.numeric), na.rm = TRUE)
  y <- replace(y, !is.finite(y), NA)
  return(y)
}

dt1[, (pval_cols) := lapply(.SD, min_fun)
    , .SDcols = pval_cols][]
 
 
3 hours later…

« first day (1733 days earlier)      last day (1557 days later) »