R/dfToListColumn.R

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

#' dfToListColumn
#' This is an internal function that makes list of d.fs
#'
#' @keywords internal
#'
#' @param dfLookColumn df with or without Column to list
#' @param columnToSplit character, column name to split
#'
#' @return list

dfToListColumn <- function(dfLookColumn, columnToSplit = "OTU") {
  if (columnToSplit %in% colnames(dfLookColumn)) {
    listOfdfLookColumn <- base::split(dfLookColumn, factor(dfLookColumn[, columnToSplit], levels = unique(dfLookColumn[, columnToSplit])))
    names(listOfdfLookColumn) <- unique(dfLookColumn[, columnToSplit])
  } else {
    listOfdfLookColumn <- list(dfLookColumn)
    names(listOfdfLookColumn) <- 1
  }

  return(listOfdfLookColumn)
}