R/utils_columns_to_named_vector.R

Defines functions columnsToNamedVector

columnsToNamedVector = function(df) {
  if(ncol(df) == 2) {
    return(setNames(as.character(df[,1] %>% pull()), df[,2] %>% pull()))
  } else {
    stop("Only two-columns data frames are allowed")
  }
}
filpro/vessel_challenge documentation built on March 17, 2021, 4:53 p.m.