R/insertInList.R

In idiogramFISH: Shiny App. Idiograms with Marks and Karyotype Indices

# insertInList
#' This is an internal function that inserts in vector or list
#'
#' It returns list or vector
#'
#' @keywords internal
#'
#' @param list vector or list
#' @param pos index to insert in
#' @param elems elements to be inserted
#' @return list or vector
insertInList = function(list, pos, elems) {
  len<-length(list)
  j = 0
  for (i in 1:length(pos)){
    if (pos[i]==1) {
      list = c(elems[j+1], list)
    } else if (pos[i] == length(list)+1) {
      list = c(list, elems[j+1])
    } else if (pos[i] <= length(list)) {
      list = c(list[1:(pos[i]-1+j)], elems[j+1], list[(pos[i]+j):(len+j)])
    } else {
      message(crayon::blue("Possible problem parsing joins"))
    }
    j = j+1
  }
  return(list)
}