R/w_primer_elemento.R

In pelishk/upax_library: Librería de análisis

#' obtención del primer elemento de una variable en un dataframe
#'
#' Obtiene el primer elemento de una variable en un dataframe, en caso de no especificarse, regresa el primer elemento de la primer variable
#'
#' @param t dataframe del que se extraerá la información
#'
#' @param v caracter con el nombre de la variable
#'
#' @return primer elemento deseado


# función para transformar matriz de marcas a matriz de menciones y su inversa
w_primer_elemento <- function(t,v=NULL){

  if(is.null(v)){
    v <- names(t)[1]
  }

  resultado <- as.character(eval(parse(text = paste0('t$',v,'[1]'))))
  return(resultado)
}