R/ncol_to_selectedColumns.R

In PrzeChoj/predPCR: Prediction of PCR reaction

#' Selects standard columns to display - first and last 5
#' 
#' @param numCol \code{numeric} Number of columns to select from
#' 
#' @return Selected first and last 5 of columns
#' 
ncol_to_selectedColumns <- function(numCol){
  if(numCol < 5){
    1:numCol
  }else{
    union(1:5, (numCol - 4):numCol)
  }
}