R/data.src.r

In AMCOOK/FoodHabits: Functions for Food Habits Analysis from BIO Ecosystem Surveys

#' @export

data.src <- function() {
		srcs <- sqlQuery(channel,paste("select distinct datasource from mfd_stomach.sdinf order by datasource;"))
		a3 <- paste(srcs[,1],sep=",")
	return(a3)
	}