R/listNulltoNA.R

listNulltoNA <- function(x){
  if(length(x) == 0){
    return(NA)
  } else {
    x[sapply(x, is.null)] <- NA
    return(x)
  }
}
FrancescaMancini/FlickrAPI_EABhackathon documentation built on May 29, 2019, 10:52 a.m.