SHINY DEVALPOMI : add subtype for dam extrapolation
Change the table calculation_code_table
in global.R to add sub categories 4.3
calculation_code_table <- structure(list(`type calculation` = c("Full", "Suplementary assumptions",
"Missing equipment flow per turbine", "Missing number of blades (Kaplan)",
"Missing equipement flow", "Missing diameter Kaplan (N Q)", "Missing diameter Kaplan (Q)",
"Missing height", "Missing diameter Francis", "Mortality calculation used",
"Smolt Kaplan", "Smolt & eel Francis", "Smolt Pelton and VLH",
"Eel Kaplan (QND)", "Eel Kaplan (QN)", "Eel Kaplan (ND)", "Eel Pelton and VLH",
"Average all", "grid"), code = c("1", "2", "2_1", "2_2", "2_3",
"2_4", "2_5", "2_6", "2_7", "3", "3_1", "3_2", "3_3", "3_4",
"3_5", "3_7", "3_8", "4", "5"), description = c("All data required to calculate mortalities are there",
"See category below", "Assumption the turbines have equal flow and turbine flow missing is replaced by hpp max turbine flow",
"If the number of blades is not there suppose it's 4", "Devalpomi, auto consumption mean equiment flow, other dams (connected to grid) 75% of the module. (Not used currently)",
"Calculation of turbine diameter (From Rotation speed and Q) Gomes and Larinier, 2008",
"Calculation of turbine diameter (From Q) Gomes and Larinier, 2008",
"Dam_height (not present in HPP table => collected at dam level)",
"Diameter francis (See Briand et al., 2015)", NA, "3_1 Bosc_Larinier_2000",
"3_2 Larinier_Dartiguelongue_1989 or \"Larinier_Travade_2002\"",
"3_3 Default for Pelton or VLH", "3_4 = QND Eel mortalities Gomes and larinier 2008",
"3_5 = QN Eel mortalities Gomes and larinier 2008", "3_7 = ND Eel mortalities Gomes and larinier 2008",
"3_8 = Taux de mortalite pour les Pelton ou Ichtyocompatibles",
"The type of turbine is not known, we use the average mortality of all types of turbines.",
"A grid protects the intake")), row.names = c(NA, -19L), class = c("tbl_df",
"tbl", "data.frame"))