Closed cedricbriandgithub closed 5 months ago
extract_data = function(data_needed, from_database=TRUE, quality = c(1,2,4), quality_check=TRUE) {
if (from_database){ # give the correspondance by "human readable" name and table/view name list_data_table = data.frame(data_needed = c("Landings", "Aquaculture", "Release", "B0", "Bbest", "Bcurrent", "Sigma A", "Sigma F", "Sigma H", "Potential available habitat", "Mortality in Silver Equivalents", "Sigma F all", "Sigma H all", "PrecoData Country", "PrecoData EMU","PrecoData All"), table_dbname = c("landings", "aquaculture", "release", "b0", "bbest", "bcurrent", "sigmaa", "sigmaf", "sigmah", "potential_available_habitat","silver_eel_equivalents", "sigmafallcat", "sigmahallcat", "precodata_country", "precodata_emu","precodata_all"))
check whether this has been fixed, no idea what this is about
extract_data = function(data_needed, from_database=TRUE, quality = c(1,2,4), quality_check=TRUE) {