R/datainfo.R

In corujito/filtrafilet: Filtra o filet da base

datainfo <- function(mydata){
  list(
    #all = as.list(colnames(mydata)),
    all = as.list(c("Publication.Year", "Author", "First Author", "Source.Title", "JCR")),
    strings = as.list(names(which(unlist(lapply(mydata, is.character))))),
    other = as.list(names(which(unlist(lapply(mydata, function(x){!is.character(x)})))))
  )
}