data-raw/input_dictionaries_creation.R
In MalditoBarbudo/IFNappkg: Shiny modules and helpers for IFNapp
# ## objects_needed ####
source('data-raw/polygon_objects_creation.R')
#
# ## mod_data inputs ####
#
# # ifn input
# dic_ifn_choices <- list(
#
# ## catalan
# cat = c(
# 'IFN 2' = 'ifn2',
# 'IFN 3' = 'ifn3',
# 'IFN 4' = 'ifn4',
# 'IFN 3 respecte a IFN 2' = 'ifn3_ifn2',
# 'IFN 4 respecte a IFN 3' = 'ifn3_ifn4'
# ),
#
# ## spanish
# esp = c(
# 'IFN 2' = 'ifn2',
# 'IFN 3' = 'ifn3',
# 'IFN 4' = 'ifn4',
# 'IFN 3 respecto a IFN 2' = 'ifn3_ifn2',
# 'IFN 4 respecto a IFN 3' = 'ifn3_ifn4'
# ),
#
# ## english
# eng = c(
# 'NFI 2' = 'ifn2',
# 'NFI 3' = 'ifn3',
# 'NFI 4' = 'ifn4',
# 'NFI 3 compared to NFI 2' = 'ifn3_ifn2',
# 'NFI 4 compared to NFI 3' = 'ifn3_ifn4'
# )
#
# )
#
# # viz_shape input
# dic_viz_shape_choices <- list(
#
# ## catalan
# cat = c(
# 'Parcel·les' = 'parcela',
# 'Poligons' = 'polygon'
# ),
#
# ## spanish
# esp = c(
# 'Parcelas' = 'parcela',
# 'Polígonos' = 'polygon'
# ),
#
# ## english
# eng = c(
# 'Plots' = 'parcela',
# 'Polygons' = 'polygon'
# )
#
# )
#
# # admin_div input
# dic_admin_div_choices <- list(
#
# ## catalan
# cat = c(
# Catalunya = '', Provincies = 'provincia', Vegueries = 'vegueria',
# Comarques = 'comarca', Municipis = 'municipi'
# ),
#
# ## spanish
# esp = c(
# Cataluña = '', Provincias = 'provincia', Veguerias = 'vegueria',
# Comarcas = 'comarca', Municipios = 'municipi'
# ),
#
# ## english
# eng = c(
# Catalonia = '', Provinces = 'provincia', Vegueries = 'vegueria',
# Region = 'comarca', Municipality = 'municipi'
# )
#
# )
#
# # espai_tipus input
# dic_espai_tipus_choices <- list(
#
# ## catalan
# cat = c(
# 'Nivell de protecció' = 'proteccio',
# "Espai d'interès Nacional" = 'nomein',
# "Espai de Protecció Especial" = 'enpes',
# "Xarxa Natura 2000" = 'nomxarxa2000'
# ),
#
# ## spanish
# esp = c(
# 'Nivel de protección' = 'proteccio',
# "Espacio de Interes Nacional" = 'nomein',
# "Espacio de Protección Especial" = 'enpes',
# "Red Natura 2000" = 'nomxarxa2000'
# ),
#
# ## english
# eng = c(
# 'Protection level' = 'proteccio',
# "National Space of Interest" = 'nomein',
# "Special Protection Space" = 'enpes',
# "Natura 2000 Net" = 'nomxarxa2000'
# )
#
# )
#
# # admin_div_fil input
# dic_admin_div_fil_choices <- list(
#
# ## catalan
# cat = list(
# provincia = c('Totes' = '', names_provincias),
# vegueria = c('Totes' = '', names_veguerias),
# comarca = c('Totes' = '', names_comarcas),
# municipi = c('Tots' = '', names_municipios)
# ),
#
# ## spanish
# esp = list(
# provincia = c('Todas' = '', names_provincias),
# vegueria = c('Todas' = '', names_veguerias),
# comarca = c('Todas' = '', names_comarcas),
# municipi = c('Todos' = '', names_municipios)
# ),
#
# ## english
# eng = list(
# provincia = c('All' = '', names_provincias),
# vegueria = c('All' = '', names_veguerias),
# comarca = c('All' = '', names_comarcas),
# municipi = c('All' = '', names_municipios)
# )
#
# )
#
# # espai_tipus_fil input
# dic_espai_tipus_fil_choices <- list(
#
# ##TODO general sections of the diferent lenguages and spaces must be revised
# ## to comply with the values of the variables to match (i.e. in the
# ## no_whatever)
#
# ## catalan
# cat = list(
# proteccio = list(
# general = c(
# "Tots" = '', "Només protegits" = 'only_protected',
# "Sense protecció" = 'Sense protecció'
# ),
# espais = c(
# "Paratge Natural d'Interès Nacional", "Parc Nacional", "Parc Natural",
# "Reserva Natural de Fauna Salvatge", "Reserva Natural Parcial",
# "Zona de Protecció"
# )
# ),
# nomein = list(
# general = c(
# "Tots" = '', "Només espais d'interès nacional" = 'only_protected',
# "Sense Pein" = 'Sense Pein'
# ),
# espais = c(
# "Aiguabarreig Segre-Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes", "Alta Garrotxa, l'",
# "Alt Pirineu, l'", "Ancosa-Montagut l'", "Artiga de Lin, Era", "Bessons, els",
# "Capçalera de la Noguera Ribagorçana", "Capçaleres del Ter i del Freser",
# "Cap de Creus", "Castell-Cap Roig", "Cingles de Bertí", "Collegats",
# "Collsacabra", "Conreria-Sant Mateu-Céllecs, la", "Costoja", "Estany de Banyoles",
# "Estany de Sils", "Eth Portilhon", "Faiada de Malpàs, la", "Foix, el", "Gallifa",
# "Gavarres, les", "Gelada", "Guilleries, les", "Marimanha", "Massís de l'Albera",
# "Massís de les Cadiretes", "Massís de les Salines", "Massís del Garraf",
# "Massís del Montseny", "Miracle, el", "Moianès, el", "Montanhes de Les e Bossòst",
# "Montesquiu", "Montgrí, el", "Montmell, el", "Montserrat", "Muntanyes de Begur",
# "Muntanyes de l'Ordal", "Muntanyes de Prades", "Muntanyes de Rocacorba",
# "Muntanyes de Tivissa-Vandellòs", "Naut Aran", "Obagues del Riu Corb", "Olèrdola",
# "Penya-segats de la Muga", "Pinya de Rosa", "Plana de Sant Jordi, la",
# "Ports, els", "Puig de la Banya del Boc", "Riba-roja", "Ribera Salada",
# "Riera de Merlès", "Riera de Navel", "Riera de Sorreigs", "Roques Blanques",
# "Saburella", "Sant Joan de Toran", "Sant Llorenç del Munt i l'Obac",
# "Savassona", "Serra Cavallera", "Serra d'Aubenç", "Serra de Bellmunt",
# "Serra de Boumort", "Serra de Carreu", "Serra de Castelltallat",
# "Serra de Collserola", "Serra del Catllaràs", "Serra de Llaberia",
# "Serra del Montsant", "Serra del Montsec", "Serra del Verd",
# "Serra de Miralles-Queralt", "Serra de Montgrony", "Serra de Montsià",
# "Serra d'Ensija-els Rasos de Peguera", "Serra de Picancel", "Serra de Queralt",
# "Serra de Sant Gervàs", "Serra de Turp", "Serra Llarga", "Serra Mitjana",
# "Serres de Busa-els Bastets-Lord", "Serres de Cardó-el Boix", "Serres del Cadí-el Moixeró",
# "Serres de Milany-Santa Magdalena i Puigsacalm-Bellmunt", "Serres de Montnegre-el Corredor",
# "Serres de Pàndols-Cavalls", "Serres de Pradell-l'Argentera",
# "Serres d'Odèn-Port del Comte", "Tossal Gros de Miramar", "Tossals d'Almatret",
# "Tossa Plana de Lles-Puigpedrós", "Tres Hereus, els", "Turons de Maçanet",
# "Turons de la Plana Ausetana", "Vall Alta de Serradell", "Vall del Riu Llobregós",
# "Volcà de la Crosa", "Zona Volcànica de la Garrotxa"
# )
# ),
# enpes = list(
# general = c(
# "Tots" = '', "Només espai de protecció especial" = 'only_protected',
# "Sense protecció" = 'Sense protecció'
# ),
# espais = c(
# "Paratge natural d'interès nacional de cap Gros-cap de Creus",
# "Paratge natural d'interès nacional de la vall del monestir de Poblet",
# "Paratge natural d'interès nacional de la Serra de Rodes",
# "Paratge natural d'interès nacional del massís de l'Albera",
# "Paratge natural d'interès nacional del Massís de Pedraforca",
# "Paratge natural d'interès nacional de Pinya de Rosa",
# "Parc nacional d'Aigüestortes i Estany de Sant Maurici",
# "Parc natural de Cap de Creus",
# "Parc natural de l'Alt Pirineu",
# "Parc natural de la Muntanya de Montserrat",
# "Parc natural de la Zona Volcànica de la Garrotxa",
# "Parc natural del Cadí-Moixeró",
# "Parc natural del Massís de Sant Llorenç del Munt i Serra de l'Obac",
# "Parc Natural del Montsant",
# "Parc natural dels Aiguamolls de l'Empordà",
# "Parc natural dels Ports",
# "Parc Natural Massís del Montseny",
# "Reserva Natural de Fauna Salvatge de l'Aiguabarreig Segre-Noguera Pallaresa",
# "Reserva natural parcial de Baish Aran",
# "Reserva natural parcial de la Capçalera de l'Orlina",
# "Reserva natural parcial de la Fageda de Jordà",
# "Reserva natural parcial de la Llosa",
# "Reserva natural parcial de l'Alt Àneu",
# "Reserva natural parcial de la Muntanya Montserrat",
# "Reserva natural parcial del Barranc de la Trinitat",
# "Reserva natural parcial del Barranc del Titllar",
# "Reserva natural parcial de les Fagedes dels Ports",
# "Reserva natural parcial del volcà Aiguanegra",
# "Reserva natural parcial del volcà Croscat",
# "Reserva natural parcial del volcà de Santa Margarida",
# "Reserva natural parcial del volca Montolivet",
# "Reserva natural parcial del volcà Puig Astrol",
# "Reserva natural parcial de Noguera Pallaresa-Bonaigua",
# "Reserva natural parcial de Riera de Merlès",
# "Reserva natural parcial de St Quirze de Colera",
# "Zona perifèrica de protecció del parc nacional",
# "Zona perifèrica de protecció del Parc natural de la Muntanya de Montserrat"
# )
# ),
# nomxarxa2000 = list(
# general = c(
# "Tots" = '', "Només en Xarxa Natura 2000" = 'only_protected',
# "Sense Xarxa Natura 2000" = 'SenseXarxa'
# ),
# espais = c(
# "Aiguabarreig Segre- Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes",
# "Alta Garrotxa-Massís de les Salines", "Alt Pallars", "Baish Aran",
# "Barranc de Santes Creus", "Bellmunt-Almenara", "Beneïdor", "Capçaleres del Foix",
# "Capçaleres del Ter i del Freser", "Cap de Creus", "El Montgr-Les Medes-El Baix Ter",
# "El Montmell-Marmellar", "Els Bessons", "Era Artiga de Lin-Eth Portilhon",
# "Estany de Banyoles", "Estany de Sils-Riera de Santa Coloma",
# "Gallifa-Cingles de Bertí", "Garriga d'Empordà", "Granyena",
# "La Faiada de Malpàs i Cambatiri", "L'Albera", "Les Gavarres", "Les Guilleries",
# "Litoral del Baix Empordà", "Massís de Bonastre", "Massís de les Cadiretes",
# "Massís del Montseny", "Montgrony", "Montserrat-Roques Blanques- riu Llobregat",
# "Muntanyes de Prades", "Muntanyes de Rocacorba-Puig de la Baya del Boc",
# "Obagues de la riera de Madrona", "Obagues del riu Corb", "Prepirineu Central català",
# "Rasos de Tubau", "Ribera de l'Algars", "Ribera Salada", "Riberes de l'Alt Segre",
# "Riberes de l'Alt Ter", "Riberes del Baix Ter", "Riera de Clariana",
# "Riera de la Goda", "Riera de Merlès", "Riera de Sorreigs", "Riu Brugent",
# "Riu de la Llosa", "Riu Fluvià", "Riu Gaià", "Riu Llobregat d'Empordà-Riera de Torrelles",
# "Riu Siurana i planes del Priorat", "Sant Llorenç del Munt i l'Obac",
# "Secans de la Noguera", "Serra Cavallera",
# "Serra d'Aubenç i Roc de Cogul", "Serra de Boumort- Collegats",
# "Serra de Castelltallat", "Serra de Catllaràs", "Serra de Collserola",
# "Serra de Montsant-Pas de l'Ase", "Serra de Montsià", "Serra de Prada-Castellàs",
# "Serra de Turp i Mora Condal-Valldan", "Serres de Cardó - El Boix",
# "Serres del Litoral central", "Serres del litoral septentrional",
# "Serres del Montsec, Sant Mamet i Mitjana",
# "Serres de Queralt i Els Tossals-Aigua d'Ora", "Sistema prelitoral central",
# "Sistema prelitoral meridional", "Sistema transversal Català",
# "Tivissa-Vandellós-Llaberia", "Tossal de Montagut", "Tossals d'Almatret i Riba-roja",
# "Tossa Plana de Lles-Puigpedrós", "Vall Alta de Serradell - Serra de Sant Gervàs",
# "Vall la Vinaixa", "Valls de l'Anoia", "Valls del Sió-Llobregós",
# "Vessants de la Noguera Ribagorçana", "Zona exclosa", "Zona Volcànica de la Garrotxa"
# )
# )
# ),
#
# ## spanish
# esp = list(
# proteccio = list(
# general = c(
# "Todos" = '', "Solo protegidos" = 'only_protected',
# "Sin protección" = 'Sense protecció'
# ),
# espacios = c(
# "Paraje Natural de Interés Nacional" = "Paratge Natural d'Interès Nacional",
# "Parque Nacional" = "Parc Nacional",
# "Parque Natural" = "Parc Natural",
# "Reserva Natural de Fauna Salvaje" = "Reserva Natural de Fauna Salvatge",
# "Reserva Natural Parcial" = "Reserva Natural Parcial",
# "Zona de protección" = "Zona de Protecció"
# )
# ),
# nomein = list(
# general = c(
# "Todos" = '', "Solo espacios de interés nacional" = 'only_protected',
# "Sin PEIN" = 'Sense Pein'
# ),
# espacios = c(
# "Aiguabarreig Segre-Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes", "Alta Garrotxa, l'",
# "Alt Pirineu, l'", "Ancosa-Montagut l'", "Artiga de Lin, Era", "Bessons, els",
# "Capçalera de la Noguera Ribagorçana", "Capçaleres del Ter i del Freser",
# "Cap de Creus", "Castell-Cap Roig", "Cingles de Bertí", "Collegats",
# "Collsacabra", "Conreria-Sant Mateu-Céllecs, la", "Costoja", "Estany de Banyoles",
# "Estany de Sils", "Eth Portilhon", "Faiada de Malpàs, la", "Foix, el", "Gallifa",
# "Gavarres, les", "Gelada", "Guilleries, les", "Marimanha", "Massís de l'Albera",
# "Massís de les Cadiretes", "Massís de les Salines", "Massís del Garraf",
# "Massís del Montseny", "Miracle, el", "Moianès, el", "Montanhes de Les e Bossòst",
# "Montesquiu", "Montgrí, el", "Montmell, el", "Montserrat", "Muntanyes de Begur",
# "Muntanyes de l'Ordal", "Muntanyes de Prades", "Muntanyes de Rocacorba",
# "Muntanyes de Tivissa-Vandellòs", "Naut Aran", "Obagues del Riu Corb", "Olèrdola",
# "Penya-segats de la Muga", "Pinya de Rosa", "Plana de Sant Jordi, la",
# "Ports, els", "Puig de la Banya del Boc", "Riba-roja", "Ribera Salada",
# "Riera de Merlès", "Riera de Navel", "Riera de Sorreigs", "Roques Blanques",
# "Saburella", "Sant Joan de Toran", "Sant Llorenç del Munt i l'Obac",
# "Savassona", "Serra Cavallera", "Serra d'Aubenç", "Serra de Bellmunt",
# "Serra de Boumort", "Serra de Carreu", "Serra de Castelltallat",
# "Serra de Collserola", "Serra del Catllaràs", "Serra de Llaberia",
# "Serra del Montsant", "Serra del Montsec", "Serra del Verd",
# "Serra de Miralles-Queralt", "Serra de Montgrony", "Serra de Montsià",
# "Serra d'Ensija-els Rasos de Peguera", "Serra de Picancel", "Serra de Queralt",
# "Serra de Sant Gervàs", "Serra de Turp", "Serra Llarga", "Serra Mitjana",
# "Serres de Busa-els Bastets-Lord", "Serres de Cardó-el Boix", "Serres del Cadí-el Moixeró",
# "Serres de Milany-Santa Magdalena i Puigsacalm-Bellmunt", "Serres de Montnegre-el Corredor",
# "Serres de Pàndols-Cavalls", "Serres de Pradell-l'Argentera",
# "Serres d'Odèn-Port del Comte", "Tossal Gros de Miramar", "Tossals d'Almatret",
# "Tossa Plana de Lles-Puigpedrós", "Tres Hereus, els", "Turons de Maçanet",
# "Turons de la Plana Ausetana", "Vall Alta de Serradell", "Vall del Riu Llobregós",
# "Volcà de la Crosa", "Zona Volcànica de la Garrotxa"
# )
# ),
# enpes = list(
# general = c(
# "Todos" = '', "Solo espacios con protección especial" = 'only_protected',
# "Sin ENPES" = 'Sense protecció'
# ),
# espais = c(
# "Paratge natural d'interès nacional de cap Gros-cap de Creus",
# "Paratge natural d'interès nacional de la vall del monestir de Poblet",
# "Paratge natural d'interès nacional de la Serra de Rodes",
# "Paratge natural d'interès nacional del massís de l'Albera",
# "Paratge natural d'interès nacional del Massís de Pedraforca",
# "Paratge natural d'interès nacional de Pinya de Rosa",
# "Parc nacional d'Aigüestortes i Estany de Sant Maurici",
# "Parc natural de Cap de Creus",
# "Parc natural de l'Alt Pirineu",
# "Parc natural de la Muntanya de Montserrat",
# "Parc natural de la Zona Volcànica de la Garrotxa",
# "Parc natural del Cadí-Moixeró",
# "Parc natural del Massís de Sant Llorenç del Munt i Serra de l'Obac",
# "Parc Natural del Montsant",
# "Parc natural dels Aiguamolls de l'Empordà",
# "Parc natural dels Ports",
# "Parc Natural Massís del Montseny",
# "Reserva Natural de Fauna Salvatge de l'Aiguabarreig Segre-Noguera Pallaresa",
# "Reserva natural parcial de Baish Aran",
# "Reserva natural parcial de la Capçalera de l'Orlina",
# "Reserva natural parcial de la Fageda de Jordà",
# "Reserva natural parcial de la Llosa",
# "Reserva natural parcial de l'Alt Àneu",
# "Reserva natural parcial de la Muntanya Montserrat",
# "Reserva natural parcial del Barranc de la Trinitat",
# "Reserva natural parcial del Barranc del Titllar",
# "Reserva natural parcial de les Fagedes dels Ports",
# "Reserva natural parcial del volcà Aiguanegra",
# "Reserva natural parcial del volcà Croscat",
# "Reserva natural parcial del volcà de Santa Margarida",
# "Reserva natural parcial del volca Montolivet",
# "Reserva natural parcial del volcà Puig Astrol",
# "Reserva natural parcial de Noguera Pallaresa-Bonaigua",
# "Reserva natural parcial de Riera de Merlès",
# "Reserva natural parcial de St Quirze de Colera",
# "Zona perifèrica de protecció del parc nacional",
# "Zona perifèrica de protecció del Parc natural de la Muntanya de Montserrat"
# )
# ),
# nomxarxa2000 = list(
# general = c(
# "Todos" = '', "Solo aquellos en la Red Natura 2000" = 'only_protected',
# "Sin Red Natura 2000" = 'SenseXarxa'
# ),
# espais = c(
# "Aiguabarreig Segre- Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes",
# "Alta Garrotxa-Massís de les Salines", "Alt Pallars", "Baish Aran",
# "Barranc de Santes Creus", "Bellmunt-Almenara", "Beneïdor", "Capçaleres del Foix",
# "Capçaleres del Ter i del Freser", "Cap de Creus", "El Montgr-Les Medes-El Baix Ter",
# "El Montmell-Marmellar", "Els Bessons", "Era Artiga de Lin-Eth Portilhon",
# "Estany de Banyoles", "Estany de Sils-Riera de Santa Coloma",
# "Gallifa-Cingles de Bertí", "Garriga d'Empordà", "Granyena",
# "La Faiada de Malpàs i Cambatiri", "L'Albera", "Les Gavarres", "Les Guilleries",
# "Litoral del Baix Empordà", "Massís de Bonastre", "Massís de les Cadiretes",
# "Massís del Montseny", "Montgrony", "Montserrat-Roques Blanques- riu Llobregat",
# "Muntanyes de Prades", "Muntanyes de Rocacorba-Puig de la Baya del Boc",
# "Obagues de la riera de Madrona", "Obagues del riu Corb", "Prepirineu Central català",
# "Rasos de Tubau", "Ribera de l'Algars", "Ribera Salada", "Riberes de l'Alt Segre",
# "Riberes de l'Alt Ter", "Riberes del Baix Ter", "Riera de Clariana",
# "Riera de la Goda", "Riera de Merlès", "Riera de Sorreigs", "Riu Brugent",
# "Riu de la Llosa", "Riu Fluvià", "Riu Gaià", "Riu Llobregat d'Empordà-Riera de Torrelles",
# "Riu Siurana i planes del Priorat", "Sant Llorenç del Munt i l'Obac",
# "Secans de la Noguera", "Serra Cavallera",
# "Serra d'Aubenç i Roc de Cogul", "Serra de Boumort- Collegats",
# "Serra de Castelltallat", "Serra de Catllaràs", "Serra de Collserola",
# "Serra de Montsant-Pas de l'Ase", "Serra de Montsià", "Serra de Prada-Castellàs",
# "Serra de Turp i Mora Condal-Valldan", "Serres de Cardó - El Boix",
# "Serres del Litoral central", "Serres del litoral septentrional",
# "Serres del Montsec, Sant Mamet i Mitjana",
# "Serres de Queralt i Els Tossals-Aigua d'Ora", "Sistema prelitoral central",
# "Sistema prelitoral meridional", "Sistema transversal Català",
# "Tivissa-Vandellós-Llaberia", "Tossal de Montagut", "Tossals d'Almatret i Riba-roja",
# "Tossa Plana de Lles-Puigpedrós", "Vall Alta de Serradell - Serra de Sant Gervàs",
# "Vall la Vinaixa", "Valls de l'Anoia", "Valls del Sió-Llobregós",
# "Vessants de la Noguera Ribagorçana", "Zona exclosa", "Zona Volcànica de la Garrotxa"
# )
# )
# ),
#
# ## english
# eng = list(
# proteccio = list(
# general = c(
# "All" = '', "Only protected" = 'only_protected',
# "No protected" = 'Sense protecció'
# ),
# espacios = c(
# "Paraje Natural de Interés Nacional" = "Paratge Natural d'Interès Nacional",
# "Parque Nacional" = "Parc Nacional",
# "Parque Natural" = "Parc Natural",
# "Reserva Natural de Fauna Salvaje" = "Reserva Natural de Fauna Salvatge",
# "Reserva Natural Parcial" = "Reserva Natural Parcial",
# "Zona de protección" = "Zona de Protecció"
# )
# ),
# nomein = list(
# general = c(
# "All" = '', "Only national spaces of interest" = 'only_protected',
# "No PEIN" = 'Sense Pein'
# ),
# espacios = c(
# "Aiguabarreig Segre-Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes", "Alta Garrotxa, l'",
# "Alt Pirineu, l'", "Ancosa-Montagut l'", "Artiga de Lin, Era", "Bessons, els",
# "Capçalera de la Noguera Ribagorçana", "Capçaleres del Ter i del Freser",
# "Cap de Creus", "Castell-Cap Roig", "Cingles de Bertí", "Collegats",
# "Collsacabra", "Conreria-Sant Mateu-Céllecs, la", "Costoja", "Estany de Banyoles",
# "Estany de Sils", "Eth Portilhon", "Faiada de Malpàs, la", "Foix, el", "Gallifa",
# "Gavarres, les", "Gelada", "Guilleries, les", "Marimanha", "Massís de l'Albera",
# "Massís de les Cadiretes", "Massís de les Salines", "Massís del Garraf",
# "Massís del Montseny", "Miracle, el", "Moianès, el", "Montanhes de Les e Bossòst",
# "Montesquiu", "Montgrí, el", "Montmell, el", "Montserrat", "Muntanyes de Begur",
# "Muntanyes de l'Ordal", "Muntanyes de Prades", "Muntanyes de Rocacorba",
# "Muntanyes de Tivissa-Vandellòs", "Naut Aran", "Obagues del Riu Corb", "Olèrdola",
# "Penya-segats de la Muga", "Pinya de Rosa", "Plana de Sant Jordi, la",
# "Ports, els", "Puig de la Banya del Boc", "Riba-roja", "Ribera Salada",
# "Riera de Merlès", "Riera de Navel", "Riera de Sorreigs", "Roques Blanques",
# "Saburella", "Sant Joan de Toran", "Sant Llorenç del Munt i l'Obac",
# "Savassona", "Serra Cavallera", "Serra d'Aubenç", "Serra de Bellmunt",
# "Serra de Boumort", "Serra de Carreu", "Serra de Castelltallat",
# "Serra de Collserola", "Serra del Catllaràs", "Serra de Llaberia",
# "Serra del Montsant", "Serra del Montsec", "Serra del Verd",
# "Serra de Miralles-Queralt", "Serra de Montgrony", "Serra de Montsià",
# "Serra d'Ensija-els Rasos de Peguera", "Serra de Picancel", "Serra de Queralt",
# "Serra de Sant Gervàs", "Serra de Turp", "Serra Llarga", "Serra Mitjana",
# "Serres de Busa-els Bastets-Lord", "Serres de Cardó-el Boix", "Serres del Cadí-el Moixeró",
# "Serres de Milany-Santa Magdalena i Puigsacalm-Bellmunt", "Serres de Montnegre-el Corredor",
# "Serres de Pàndols-Cavalls", "Serres de Pradell-l'Argentera",
# "Serres d'Odèn-Port del Comte", "Tossal Gros de Miramar", "Tossals d'Almatret",
# "Tossa Plana de Lles-Puigpedrós", "Tres Hereus, els", "Turons de Maçanet",
# "Turons de la Plana Ausetana", "Vall Alta de Serradell", "Vall del Riu Llobregós",
# "Volcà de la Crosa", "Zona Volcànica de la Garrotxa"
# )
# ),
# enpes = list(
# general = c(
# "All" = '', "Only spaces with special protection" = 'only_protected',
# "No ENPES" = 'Sense protecció'
# ),
# espais = c(
# "Paratge natural d'interès nacional de cap Gros-cap de Creus",
# "Paratge natural d'interès nacional de la vall del monestir de Poblet",
# "Paratge natural d'interès nacional de la Serra de Rodes",
# "Paratge natural d'interès nacional del massís de l'Albera",
# "Paratge natural d'interès nacional del Massís de Pedraforca",
# "Paratge natural d'interès nacional de Pinya de Rosa",
# "Parc nacional d'Aigüestortes i Estany de Sant Maurici",
# "Parc natural de Cap de Creus",
# "Parc natural de l'Alt Pirineu",
# "Parc natural de la Muntanya de Montserrat",
# "Parc natural de la Zona Volcànica de la Garrotxa",
# "Parc natural del Cadí-Moixeró",
# "Parc natural del Massís de Sant Llorenç del Munt i Serra de l'Obac",
# "Parc Natural del Montsant",
# "Parc natural dels Aiguamolls de l'Empordà",
# "Parc natural dels Ports",
# "Parc Natural Massís del Montseny",
# "Reserva Natural de Fauna Salvatge de l'Aiguabarreig Segre-Noguera Pallaresa",
# "Reserva natural parcial de Baish Aran",
# "Reserva natural parcial de la Capçalera de l'Orlina",
# "Reserva natural parcial de la Fageda de Jordà",
# "Reserva natural parcial de la Llosa",
# "Reserva natural parcial de l'Alt Àneu",
# "Reserva natural parcial de la Muntanya Montserrat",
# "Reserva natural parcial del Barranc de la Trinitat",
# "Reserva natural parcial del Barranc del Titllar",
# "Reserva natural parcial de les Fagedes dels Ports",
# "Reserva natural parcial del volcà Aiguanegra",
# "Reserva natural parcial del volcà Croscat",
# "Reserva natural parcial del volcà de Santa Margarida",
# "Reserva natural parcial del volca Montolivet",
# "Reserva natural parcial del volcà Puig Astrol",
# "Reserva natural parcial de Noguera Pallaresa-Bonaigua",
# "Reserva natural parcial de Riera de Merlès",
# "Reserva natural parcial de St Quirze de Colera",
# "Zona perifèrica de protecció del parc nacional",
# "Zona perifèrica de protecció del Parc natural de la Muntanya de Montserrat"
# )
# ),
# nomxarxa2000 = list(
# general = c(
# "All" = '', "Only those inside Natura 2000 Net" = 'only_protected',
# "No Natura 2000 Net" = 'SenseXarxa'
# ),
# espais = c(
# "Aiguabarreig Segre- Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes",
# "Alta Garrotxa-Massís de les Salines", "Alt Pallars", "Baish Aran",
# "Barranc de Santes Creus", "Bellmunt-Almenara", "Beneïdor", "Capçaleres del Foix",
# "Capçaleres del Ter i del Freser", "Cap de Creus", "El Montgr-Les Medes-El Baix Ter",
# "El Montmell-Marmellar", "Els Bessons", "Era Artiga de Lin-Eth Portilhon",
# "Estany de Banyoles", "Estany de Sils-Riera de Santa Coloma",
# "Gallifa-Cingles de Bertí", "Garriga d'Empordà", "Granyena",
# "La Faiada de Malpàs i Cambatiri", "L'Albera", "Les Gavarres", "Les Guilleries",
# "Litoral del Baix Empordà", "Massís de Bonastre", "Massís de les Cadiretes",
# "Massís del Montseny", "Montgrony", "Montserrat-Roques Blanques- riu Llobregat",
# "Muntanyes de Prades", "Muntanyes de Rocacorba-Puig de la Baya del Boc",
# "Obagues de la riera de Madrona", "Obagues del riu Corb", "Prepirineu Central català",
# "Rasos de Tubau", "Ribera de l'Algars", "Ribera Salada", "Riberes de l'Alt Segre",
# "Riberes de l'Alt Ter", "Riberes del Baix Ter", "Riera de Clariana",
# "Riera de la Goda", "Riera de Merlès", "Riera de Sorreigs", "Riu Brugent",
# "Riu de la Llosa", "Riu Fluvià", "Riu Gaià", "Riu Llobregat d'Empordà-Riera de Torrelles",
# "Riu Siurana i planes del Priorat", "Sant Llorenç del Munt i l'Obac",
# "Secans de la Noguera", "Serra Cavallera",
# "Serra d'Aubenç i Roc de Cogul", "Serra de Boumort- Collegats",
# "Serra de Castelltallat", "Serra de Catllaràs", "Serra de Collserola",
# "Serra de Montsant-Pas de l'Ase", "Serra de Montsià", "Serra de Prada-Castellàs",
# "Serra de Turp i Mora Condal-Valldan", "Serres de Cardó - El Boix",
# "Serres del Litoral central", "Serres del litoral septentrional",
# "Serres del Montsec, Sant Mamet i Mitjana",
# "Serres de Queralt i Els Tossals-Aigua d'Ora", "Sistema prelitoral central",
# "Sistema prelitoral meridional", "Sistema transversal Català",
# "Tivissa-Vandellós-Llaberia", "Tossal de Montagut", "Tossals d'Almatret i Riba-roja",
# "Tossa Plana de Lles-Puigpedrós", "Vall Alta de Serradell - Serra de Sant Gervàs",
# "Vall la Vinaixa", "Valls de l'Anoia", "Valls del Sió-Llobregós",
# "Vessants de la Noguera Ribagorçana", "Zona exclosa", "Zona Volcànica de la Garrotxa"
# )
# )
# )
#
# )
#
# # agg_level input
# dic_agg_level_choices <- list(
# cat = c(
# 'Agregat o Total???' = 'parcela',
# 'Desglossat per Espècie' = 'especie',
# 'Desglossat per Espècie simplificat' = 'especiesimp',
# 'Desglossat per Gènere' = 'genere',
# 'Desglossat per Conífera/Caducifoli/Esclerofil·le' = 'cadesccon',
# 'Desglossat per Conífera/Planifoli' = 'planifconif'
# ),
# esp = c(
# 'Total por parcela' = 'parcela',
# 'Desglosado por Especie' = 'especie',
# 'Desglosado por Especie simplificada' = 'especiesimp',
# 'Desglosado por Género' = 'genere',
# 'Desglosado por Caducifolio/Esclerófila/Conífera' = 'cadesccon',
# 'Desglosado por Planifolia/Conífera' = 'planifconif'
# ),
# eng = c(
# 'Aggregated or Total???' = 'parcela',
# 'Breakdown by Species' = 'especie',
# 'Breakdown by Simplified Species' = 'especiesimp',
# 'Breakdown by Genera' = 'genere',
# 'Breakdown by Deciduous/Sclerophyllous/Conifer' = 'cadesccon',
# 'Breakdown by Broadleaf/Conifer' = 'planifconif'
# )
# )
#
#
# ## mod_viz inputs ####
#
# # Color input
# dic_color_choices <- list(
#
# ## catalan
# cat = list(
# scenario1 = list(
# "Variables climàtiques" = c(
# 'Radiació anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura mitjana anual' = "temperaturamitjanaanual",
# 'Temperatura màxima anual' = "temperaturamaximaanual",
# 'Precipitació anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# "ID parcel·la" = "idparcela",
# "ID classe" = "idclasse",
# "Caducifoli/Esclerofil/Conifera dominant per densitat" = "cadesccon_dom_percdens",
# "Percentatge Densitat Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percdens_val",
# "Caducifoli/Esclerofil/Conifera dominant per àrea basal" = "cadesccon_dom_percab",
# "Percentatge Àrea Basal Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percab_val",
# "Planifoli/Conifera dominant per densitat" = "planifconif_dom_percdens",
# "Percentatge Densitat Planifoli/Conifera dominant" = "planifconif_dom_percdens_val",
# "Planifoli/Conifera dominant per àrea basal" = "planifconif_dom_percab",
# "Percentatge Àrea Basal Planifoli/Conifera dominant" = "planifconif_dom_percab_val",
# "Gènere dominant per densitat" = "genere_dom_percdens",
# "Percentatge Densitat Gènere dominant" = "genere_dom_percdens_val",
# "Gènere dominant per àrea basal" = "genere_dom_percab",
# "Percentatge Àrea Basal Gènere dominant" = "genere_dom_percab_val",
# "Espècie simplificat dominant per densitat" = "especiesimp_dom_percdens",
# "Percentatge Densitat Espècie simplificat dominant" = "especiesimp_dom_percdens_val",
# "Espècie simplificat dominant per àrea basal" = "especiesimp_dom_percab",
# "Percentatge Àrea Basal Espècie simplificat dominant" = "especiesimp_dom_percab_val",
# "Espècie dominant per densitat" = "especie_dom_percdens",
# "Percentatge Densitat Espècie dominant" = "especie_dom_percdens_val",
# "Espècie dominant per àrea basal" = "especie_dom_percab",
# "Percentatge Àrea Basal Espècie dominant" = "especie_dom_percab_val",
# "Densitat total parcel·la" = "densitat",
# "Densitat total peus morts parcel·la" = "densitatmorts",
# "Àrea Basal total parcel·la" = "ab",
# "Àrea Basal total peus morts parcel·la" = "abmorts",
# "Diàmetre a l'altura del pit parcel·la" = "dbh",
# "Diàmetre a l'altura del pit peus morts parcel·la" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario2 = list(
# "Variables climàtiques" = c(
# 'Radiació anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura mitjana anual' = "temperaturamitjanaanual",
# 'Temperatura màxima anual' = "temperaturamaximaanual",
# 'Precipitació anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# 'ID parcel·la' = "idparcela",
# 'ID classe' = "idclasse",
# 'Ordre per Densitat' = "ordredens",
# 'Ordre per Àrea Basal' = "ordreab",
# 'Percentatge Densitat' = "percdens",
# 'Percentatge Àrea Basal' = "percab",
# 'Densitat' = "densitat",
# 'Denstitat peus morts' = "densitatmorts",
# 'Àrea Basal' = "ab",
# 'Àrea Basal peus morts' = "abmorts",
# "Diàmetre a l'altura del pit" = "dbh",
# "Diàmetre a l'altura del pit peus morts" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario3 = list(
# 'Variables IFN' = c(
# "Percentatge Densitat Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percdens_val",
# "Percentatge Àrea Basal Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percab_val",
# "Percentatge Densitat Planifoli/Conifera dominant" = "planifconif_dom_percdens_val",
# "Percentatge Àrea Basal Planifoli/Conifera dominant" = "planifconif_dom_percab_val",
# "Percentatge Densitat Gènere dominant" = "genere_dom_percdens_val",
# "Percentatge Àrea Basal Gènere dominant" = "genere_dom_percab_val",
# "Percentatge Densitat Espècie dominant" = "especiesimp_dom_percdens_val",
# "Percentatge Àrea Basal Espècie dominant" = "especiesimp_dom_percab_val",
# "Percentatge Densitat Espècie simplificat dominant" = "especie_dom_percdens_val",
# "Percentatge Àrea Basal Espècie simplificat dominant" = "especie_dom_percab_val",
# "Densitat total parcel·la" = "densitat",
# "Densitat total peus morts parcel·la" = "densitatmorts",
# "Àrea Basal total parcel·la" = "ab",
# "Àrea Basal total peus morts parcel·la" = "abmorts",
# "Diàmetre a l'altura del pit parcel·la" = "dbh",
# "Diàmetre a l'altura del pit peus morts parcel·la" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario4 = list(
# 'Variables IFN' = c(
# 'Ordre per Densitat' = "ordredens",
# 'Ordre per Àrea Basal' = "ordreab",
# 'Percentatge Densitat' = "percdens",
# 'Percentatge Àrea Basal' = "percab",
# 'Densitat' = "densitat",
# 'Denstitat peus morts' = "densitatmorts",
# 'Àrea Basal' = "ab",
# 'Àrea Basal peus morts' = "abmorts",
# "Diàmetre a l'altura del pit" = "dbh",
# "Diàmetre a l'altura del pit peus morts" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# )
# ),
#
#
# ## spanish
# esp = list(
# scenario1 = list(
# "Variables climáticas" = c(
# 'Radiación anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura media anual' = "temperaturamitjanaanual",
# 'Temperatura máxima anual' = "temperaturamaximaanual",
# 'Precipitación anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# "ID parcela" = "idparcela",
# "ID clase" = "idclasse",
# "Caducifolia/Esclerofila/Conifera dominante por densidad" = "cadesccon_dom_percdens",
# "Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val",
# "Caducifolia/Esclerofila/Conifera dominante por área basal" = "cadesccon_dom_percab",
# "Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val",
# "Planifolia/Conifera dominante por densidad" = "planifconif_dom_percdens",
# "Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val",
# "Planifolia/Conifera dominante por área basal" = "planifconif_dom_percab",
# "Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val",
# "Género dominante por densidad" = "genere_dom_percdens",
# "Porcentaje Densidad Género dominante" = "genere_dom_percdens_val",
# "Género dominante por área basal" = "genere_dom_percab",
# "Porcentaje Área Basal Género dominante" = "genere_dom_percab_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percdens",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percab",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percab_val",
# "Especie dominante por densidad" = "especie_dom_percdens",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val",
# "Especie dominante por densidad" = "especie_dom_percab",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percab_val",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "Diámetro a la altura del pecho parcela" = "dbh",
# "Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario2 = list(
# "Variables climáticas" = c(
# 'Radiación anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura media anual' = "temperaturamitjanaanual",
# 'Temperatura máxima anual' = "temperaturamaximaanual",
# 'Precipitación anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# 'ID parcela' = "idparcela",
# 'ID clase' = "idclasse",
# 'Orden por densidad' = "ordredens",
# 'Orden por área basal' = "ordreab",
# 'Porcentaje densidad' = "percdens",
# 'Porcentaje área basal' = "percab",
# 'Densidad' = "densitat",
# 'Denstidad pies muertos' = "densitatmorts",
# 'Área Basal' = "ab",
# 'Área Basal pies muertos' = "abmorts",
# "Diámetro a la altura del pecho" = "dbh",
# "Diámetro a la altura del pecho pies muertos" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario3 = list(
# "Variables IFN" = c(
# "Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val",
# "Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val",
# "Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val",
# "Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val",
# "Porcentaje Densidad Género dominante" = "genere_dom_percdens_val",
# "Porcentaje Área Basal Género dominante" = "genere_dom_percab_val",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val",
# "Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val",
# "Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "Diámetro a la altura del pecho parcela" = "dbh",
# "Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario4 = list(
# "Variables IFN" = c(
# 'Orden por densidad' = "ordredens",
# 'Orden por área basal' = "ordreab",
# 'Porcentaje densidad' = "percdens",
# 'Porcentaje área basal' = "percab",
# 'Densidad' = "densitat",
# 'Denstidad pies muertos' = "densitatmorts",
# 'Área Basal' = "ab",
# 'Área Basal pies muertos' = "abmorts",
# "Diámetro a la altura del pecho" = "dbh",
# "Diámetro a la altura del pecho pies muertos" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# )
# ),
#
# ## english
# eng = list(
# scenario1 = list(
# "Environmental Variables" = c(
# 'Annual radiation' = 'radiacioanual',
# 'Annual Min Temperature' = "temperaturaminimaanual",
# 'Annual Mean Temperature' = "temperaturamitjanaanual",
# 'Annual Max Temperature' = "temperaturamaximaanual",
# 'Annual Precipitation' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "NFI Variables" = c(
# "ID plot" = "idparcela",
# "ID class" = "idclasse",
# "Dominant Deciduous/Sclerophyllous/Conifer by density" = "cadesccon_dom_percdens",
# "Density Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percdens_val",
# "Dominant Deciduous/Sclerophyllous/Conifer by basal area" = "cadesccon_dom_percab",
# "Basal Area Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percab_val",
# "Dominant Broadleaf/Conifer by density" = "planifconif_dom_percdens",
# "Density Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percdens_val",
# "Dominant Broadleaf/Conifer by basal area" = "planifconif_dom_percab",
# "Basal Area Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percab_val",
# "Dominant Genera by density" = "genere_dom_percdens",
# "Density Percentage Dominant genera" = "genere_dom_percdens_val",
# "Dominant Genera by basal area" = "genere_dom_percab",
# "Basal Area Percentage Dominant Genera" = "genere_dom_percab_val",
# "Dominant Simplified Species by density" = "especiesimp_dom_percdens",
# "Density Percentage Dominant Simplified Species" = "especiesimp_dom_percdens_val",
# "Dominant Simplified Species by basal area" = "especiesimp_dom_percab",
# "Basal Area Percentage Dominant Simplified Species" = "especiesimp_dom_percab_val",
# "Dominant Species by density" = "especie_dom_percdens",
# "Density Percentage Dominant Species" = "especie_dom_percdens_val",
# "Dominant Species by basal area" = "especie_dom_percab",
# "Basal Area Percentage Dominant Species" = "especie_dom_percab_val",
# "Total Plot Density" = "densitat",
# "Total Plot Density Dead Trees" = "densitatmorts",
# "Total Plot Basal Area" = "ab",
# "Total Plot Basal Area Dead Trees" = "abmorts",
# "Diameter at Breast Height Plot" = "dbh",
# "Diameter at Breast Height Dead Trees plot" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario2 = list(
# "Environmental Variables" = c(
# 'Annual radiation' = 'radiacioanual',
# 'Annual Min Temperature' = "temperaturaminimaanual",
# 'Annual Mean Temperature' = "temperaturamitjanaanual",
# 'Annual Max Temperature' = "temperaturamaximaanual",
# 'Annual Precipitation' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "NFI Variables" = c(
# 'ID plot' = "idparcela",
# 'ID class' = "idclasse",
# 'Rank by Density' = "ordredens",
# 'Rank by Basal Area' = "ordreab",
# 'Density Percentage' = "percdens",
# 'Basal Area Percentage' = "percab",
# 'Density' = "densitat",
# 'Density Dead Trees' = "densitatmorts",
# 'Basal Area' = "ab",
# 'Basal Area Dead Trees' = "abmorts",
# "Diameter at Breast Height" = "dbh",
# "Diameter at Breast Height Dead Trees" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario3 = list(
# "NFI Variables" = c(
# "Density Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percdens_val",
# "Basal Area Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percab_val",
# "Density Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percdens_val",
# "Basal Area Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percab_val",
# "Density Percentage Dominant genera" = "genere_dom_percdens_val",
# "Basal Area Percentage Dominant Genera" = "genere_dom_percab_val",
# "Density Percentage Dominant Simplified Species" = "especiesimp_dom_percdens_val",
# "Basal Area Percentage Dominant Simplified Species" = "especiesimp_dom_percab_val",
# "Density Percentage Dominant Species" = "especie_dom_percdens_val",
# "Basal Area Percentage Dominant Species" = "especie_dom_percab_val",
# "Total Plot Density" = "densitat",
# "Total Plot Density Dead Trees" = "densitatmorts",
# "Total Plot Basal Area" = "ab",
# "Total Plot Basal Area Dead Trees" = "abmorts",
# "Diameter at Breast Height Plot" = "dbh",
# "Diameter at Breast Height Dead Trees plot" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario4 = list(
# "NFI Varibales" = c(
# 'Rank by Density' = "ordredens",
# 'Rank by Basal Area' = "ordreab",
# 'Density Percentage' = "percdens",
# 'Basal Area Percentage' = "percab",
# 'Density' = "densitat",
# 'Density Dead Trees' = "densitatmorts",
# 'Basal Area' = "ab",
# 'Basal Area Dead Trees' = "abmorts",
# "Diameter at Breast Height" = "dbh",
# "Diameter at Breast Height Dead Trees" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# )
# )
# )
#
# # Mida (size) input
# dic_mida_choices <- dic_color_choices
# dic_mida_choices$cat <- dic_mida_choices$cat %>%
# purrr::modify_depth(1, function(x) {c(Cap = '', x)})
# dic_mida_choices$esp <- dic_mida_choices$esp %>%
# purrr::modify_depth(1, function(x) {c(Ninguna = '', x)})
# dic_mida_choices$eng <- dic_mida_choices$eng %>%
# purrr::modify_depth(1, function(x) {c(None = '', x)})
#
# # Functional type group input
# dic_tipo_grup_func_choices <- list(
# cat = list(
# 'Espècie' = 'especie',
# 'Espècie simplificat' = 'especiesimp',
# 'Gènere' = 'genere',
# 'Conífera/Caducifoli/Esclerofil·le' = 'cadesccon',
# 'Conífera/Planifoli' = 'planifconif'
# ),
# esp = list(
# 'Especie' = 'especie',
# 'Especie simplificada' = 'especiesimp',
# 'Género' = 'genere',
# 'Caducifolia/Esclerófila/Conífera' = 'cadesccon',
# 'Planifolia/Conífera' = 'planifconif'
# ),
# eng = list(
# 'Species' = 'especie',
# 'Simplified Species' = 'especiesimp',
# 'Genera' = 'genere',
# 'Deciduous/Sclerophyllous/Conifer' = 'cadesccon',
# 'Broadleaf/Conifer' = 'planifconif'
# )
# )
#
# # Functional group value input
# dic_grup_func_choices <- list(
# cat = list(
# scenario1 = list(
# especie = c(
# Qualsevol = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Quercus humilis/cerroides",
# "Sorbus aria",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Tilia",
# "Acer opalus",
# "Pinus nigra",
# "Alnus glutinosa",
# "Salix",
# "Robinia pseudacacia",
# "Corylus avellana",
# "Quercus petraea",
# "Pinus halepensis",
# "Quercus faginea",
# "Salix atrocinerea",
# "Acer campestre",
# "Crataegus monogyna",
# "Pinus pinea",
# "Tilia platyphyllos",
# "Prunus avium",
# "Juniperus communis",
# "Acer monspessulanum",
# "Fraxinus excelsior",
# "Arbutus unedo",
# "Populus nigra",
# "Tilia cordata",
# "Juniperus oxycedrus",
# "Populus tremula",
# "Pinus radiata",
# "Pseudotsuga menziesii",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber",
# "Sambucus nigra",
# "Platanus hispanica",
# "Quercus canariensis",
# "Ilex aquifolium",
# "Ulmus minor",
# "Populus alba",
# "Celtis australis",
# "Olea europaea",
# "Rhamnus alaternus",
# "Ceratonia siliqua",
# "Prunus",
# "Laurus nobilis",
# "Salix alba",
# "Betula pendula",
# "Fraxinus angustifolia",
# "Eucalyptus camaldulensis",
# "Cupressus arizonica",
# "Quercus robur",
# "Populus x canadensis",
# "Picea abies",
# "Pyrus",
# "Phillyrea latifolia",
# "Buxus sempervirens",
# "Pyrus malus",
# "Taxus baccata",
# "Eucalyptus globulus",
# "Juglans regia",
# "Sorbus aucuparia",
# "Cedrus atlantica",
# "Sorbus",
# "Salix elaeagnos",
# "Ficus carica",
# "Cedrus libani",
# "Betula",
# "Salix caprea",
# "Acer platanoides",
# "Betula pubescens",
# "Larix decidua",
# "Crataegus",
# "Juniperus phoenicea",
# "Quercus pyrenaica",
# "Pistacia terebinthus",
# "Juglans nigra",
# "Cupressus sempervirens",
# "Salix fragilis",
# "Quercus pyrenaica/pubescens",
# "Acer",
# "Juniperus communis/oxycedrus",
# "Altres planifolis",
# "Fraxinus",
# "Ulmus",
# "Populus nigra/x canadensis",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Cupressus",
# "Platanus",
# "Coníferes excepte pins",
# "Arbres de ribera"
# ),
# especiesimp = c(
# Qualsevol = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Roures",
# "Altres planifolis",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinea",
# "Altres coníferes",
# "Pinus radiata",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber"
# ),
# genere = c(
# Qualsevol = '',
# "Pinus",
# "Quercus",
# "Sorbus",
# "Fagus",
# "Abies",
# "Tilia",
# "Acer",
# "Alnus",
# "Salix",
# "Robinia",
# "Corylus",
# "Crataegus",
# "Prunus",
# "Juniperus",
# "Fraxinus",
# "Arbutus",
# "Populus",
# "Pseudotsuga",
# "Castanea",
# "Sambucus",
# "Platanus",
# "Ilex",
# "Ulmus",
# "Celtis",
# "Olea",
# "Rhamnus",
# "Ceratonia",
# "Laurus",
# "Betula",
# "Eucalyptus",
# "Cupressus",
# "Picea",
# "Pyrus",
# "Phillyrea",
# "Buxus",
# "Taxus",
# "Juglans",
# "Cedrus",
# "Ficus",
# "Larix",
# "Pistacia",
# "Planifoli",
# "Conífera"
# ),
# cadesccon = c(
# Qualsevol = '',
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# Qualsevol = '',
# "Planifoli", 'Conífera'
# )
# ),
# scenario2 = list(
# especie = c(
# "Abies alba",
# "Abies pinsapo",
# "Acacia dealbata",
# "Acer",
# "Acer campestre",
# "Acer monspessulanum",
# "Acer negundo",
# "Acer opalus",
# "Acer platanoides",
# "Acer pseudoplatanus",
# "Ailanthus altissima",
# "Alnus glutinosa",
# "Altres espècies ripícoles",
# "Altres pins",
# "Altres planifolis",
# "Arbres de ribera",
# "Arbutus unedo",
# "Betula",
# "Betula pendula",
# "Betula pubescens",
# "Buxus sempervirens",
# "Castanea sativa",
# "Cedrus atlantica",
# "Cedrus deodara",
# "Cedrus libani",
# "Celtis australis",
# "Ceratonia siliqua",
# "Coníferes excepte pins",
# "Cornus sanguinea",
# "Corylus avellana",
# "Crataegus",
# "Crataegus monogyna",
# "Cupressus",
# "Cupressus arizonica",
# "Cupressus lusitanica",
# "Cupressus sempervirens",
# "Eucalyptus camaldulensis",
# "Eucalyptus globulus",
# "Fagus sylvatica",
# "Ficus carica",
# "Fraxinus",
# "Fraxinus angustifolia",
# "Fraxinus excelsior",
# "Fraxinus ornus",
# "Ilex aquifolium",
# "Juglans nigra",
# "Juglans regia",
# "Juniperus communis",
# "Juniperus communis/oxycedrus",
# "Juniperus oxycedrus",
# "Juniperus phoenicea",
# "Juniperus thurifera",
# "Larix decidua",
# "Laurus nobilis",
# "Morus alba",
# "Olea europaea",
# "Phillyrea latifolia",
# "Phoenix",
# "Picea abies",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinaster",
# "Pinus pinea",
# "Pinus radiata",
# "Pinus sylvestris",
# "Pinus uncinata",
# "Pistacia terebinthus",
# "Platanus",
# "Platanus hispanica",
# "Populus alba",
# "Populus nigra",
# "Populus nigra/x canadensis",
# "Populus tremula",
# "Populus x canadensis",
# "Prunus",
# "Prunus avium",
# "Prunus lusitanica",
# "Prunus spinosa",
# "Pseudotsuga menziesii",
# "Pyrus",
# "Pyrus malus",
# "Quercus canariensis",
# "Quercus faginea",
# "Quercus humilis/cerroides",
# "Quercus ilex",
# "Quercus petraea",
# "Quercus pyrenaica",
# "Quercus pyrenaica/pubescens",
# "Quercus robur",
# "Quercus suber",
# "Rhamnus alaternus",
# "Robinia pseudacacia",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Salix",
# "Salix alba",
# "Salix atrocinerea",
# "Salix babylonica",
# "Salix caprea",
# "Salix elaeagnos",
# "Salix fragilis",
# "Sambucus nigra",
# "Sambucus racemosa",
# "Sophora japonica",
# "Sorbus",
# "Sorbus aria",
# "Sorbus aucuparia",
# "Sorbus domestica",
# "Sorbus torminalis",
# "Tamarix",
# "Taxus baccata",
# "Tilia",
# "Tilia cordata",
# "Tilia platyphyllos",
# "Ulmus",
# "Ulmus glabra",
# "Ulmus minor",
# "Ulmus pumila"
# ),
# especiesimp = c(
# "Pinus sylvestris",
# "Pinus uncinata",
# "Altres planifolis",
# "Roures",
# "Fagus sylvatica",
# "Quercus ilex",
# "Abies alba",
# "Altres coníferes",
# "Pinus nigra",
# "Pinus halepensis",
# "Pinus pinea",
# "Pinus pinaster",
# "Castanea sativa",
# "Pinus radiata",
# "Quercus suber",
# "Cornus sanguinea"
# ),
# genere = c(
# "Pinus",
# "Acer",
# "Salix",
# "Quercus",
# "Fagus",
# "Sorbus",
# "Ilex",
# "Abies",
# "Olea",
# "Crataegus",
# "Juniperus",
# "Tilia",
# "Corylus",
# "Fraxinus",
# "Alnus",
# "Populus",
# "Prunus",
# "Robinia",
# "Sambucus",
# "Pyrus",
# "Ulmus",
# "Phillyrea",
# "Planifoli",
# "Betula",
# "Platanus",
# "Buxus",
# "Picea",
# "Arbutus",
# "Castanea",
# "Pseudotsuga",
# "Juglans",
# "Cedrus",
# "Cupressus",
# "Eucalyptus",
# "Morus",
# "Phoenix",
# "Celtis",
# "Rhamnus",
# "Laurus",
# "Ficus",
# "Ceratonia",
# "Acacia",
# "Taxus",
# "Ailanthus",
# "Pistacia",
# "Conífera",
# "Sophora",
# "Tamarix",
# "Cornus",
# "Larix"
# ),
# cadesccon = c(
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# "Planifoli", 'Conífera'
# )
# )
# ),
#
# esp = list(
# scenario1 = list(
# especie = c(
# Cualquiera = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Quercus humilis/cerroides",
# "Sorbus aria",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Tilia",
# "Acer opalus",
# "Pinus nigra",
# "Alnus glutinosa",
# "Salix",
# "Robinia pseudacacia",
# "Corylus avellana",
# "Quercus petraea",
# "Pinus halepensis",
# "Quercus faginea",
# "Salix atrocinerea",
# "Acer campestre",
# "Crataegus monogyna",
# "Pinus pinea",
# "Tilia platyphyllos",
# "Prunus avium",
# "Juniperus communis",
# "Acer monspessulanum",
# "Fraxinus excelsior",
# "Arbutus unedo",
# "Populus nigra",
# "Tilia cordata",
# "Juniperus oxycedrus",
# "Populus tremula",
# "Pinus radiata",
# "Pseudotsuga menziesii",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber",
# "Sambucus nigra",
# "Platanus hispanica",
# "Quercus canariensis",
# "Ilex aquifolium",
# "Ulmus minor",
# "Populus alba",
# "Celtis australis",
# "Olea europaea",
# "Rhamnus alaternus",
# "Ceratonia siliqua",
# "Prunus",
# "Laurus nobilis",
# "Salix alba",
# "Betula pendula",
# "Fraxinus angustifolia",
# "Eucalyptus camaldulensis",
# "Cupressus arizonica",
# "Quercus robur",
# "Populus x canadensis",
# "Picea abies",
# "Pyrus",
# "Phillyrea latifolia",
# "Buxus sempervirens",
# "Pyrus malus",
# "Taxus baccata",
# "Eucalyptus globulus",
# "Juglans regia",
# "Sorbus aucuparia",
# "Cedrus atlantica",
# "Sorbus",
# "Salix elaeagnos",
# "Ficus carica",
# "Cedrus libani",
# "Betula",
# "Salix caprea",
# "Acer platanoides",
# "Betula pubescens",
# "Larix decidua",
# "Crataegus",
# "Juniperus phoenicea",
# "Quercus pyrenaica",
# "Pistacia terebinthus",
# "Juglans nigra",
# "Cupressus sempervirens",
# "Salix fragilis",
# "Quercus pyrenaica/pubescens",
# "Acer",
# "Juniperus communis/oxycedrus",
# "Altres planifolis",
# "Fraxinus",
# "Ulmus",
# "Populus nigra/x canadensis",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Cupressus",
# "Platanus",
# "Coníferes excepte pins",
# "Arbres de ribera"
# ),
# especiesimp = c(
# Cualquiera = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Roures",
# "Altres planifolis",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinea",
# "Altres coníferes",
# "Pinus radiata",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber"
# ),
# genere = c(
# Cualquiera = '',
# "Pinus",
# "Quercus",
# "Sorbus",
# "Fagus",
# "Abies",
# "Tilia",
# "Acer",
# "Alnus",
# "Salix",
# "Robinia",
# "Corylus",
# "Crataegus",
# "Prunus",
# "Juniperus",
# "Fraxinus",
# "Arbutus",
# "Populus",
# "Pseudotsuga",
# "Castanea",
# "Sambucus",
# "Platanus",
# "Ilex",
# "Ulmus",
# "Celtis",
# "Olea",
# "Rhamnus",
# "Ceratonia",
# "Laurus",
# "Betula",
# "Eucalyptus",
# "Cupressus",
# "Picea",
# "Pyrus",
# "Phillyrea",
# "Buxus",
# "Taxus",
# "Juglans",
# "Cedrus",
# "Ficus",
# "Larix",
# "Pistacia",
# "Planifoli",
# "Conífera"
# ),
# cadesccon = c(
# Cualquiera = '',
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# Cualquiera = '',
# "Planifoli", 'Conífera'
# )
# ),
# scenario2 = list(
# especie = c(
# "Abies alba",
# "Abies pinsapo",
# "Acacia dealbata",
# "Acer",
# "Acer campestre",
# "Acer monspessulanum",
# "Acer negundo",
# "Acer opalus",
# "Acer platanoides",
# "Acer pseudoplatanus",
# "Ailanthus altissima",
# "Alnus glutinosa",
# "Altres espècies ripícoles",
# "Altres pins",
# "Altres planifolis",
# "Arbres de ribera",
# "Arbutus unedo",
# "Betula",
# "Betula pendula",
# "Betula pubescens",
# "Buxus sempervirens",
# "Castanea sativa",
# "Cedrus atlantica",
# "Cedrus deodara",
# "Cedrus libani",
# "Celtis australis",
# "Ceratonia siliqua",
# "Coníferes excepte pins",
# "Cornus sanguinea",
# "Corylus avellana",
# "Crataegus",
# "Crataegus monogyna",
# "Cupressus",
# "Cupressus arizonica",
# "Cupressus lusitanica",
# "Cupressus sempervirens",
# "Eucalyptus camaldulensis",
# "Eucalyptus globulus",
# "Fagus sylvatica",
# "Ficus carica",
# "Fraxinus",
# "Fraxinus angustifolia",
# "Fraxinus excelsior",
# "Fraxinus ornus",
# "Ilex aquifolium",
# "Juglans nigra",
# "Juglans regia",
# "Juniperus communis",
# "Juniperus communis/oxycedrus",
# "Juniperus oxycedrus",
# "Juniperus phoenicea",
# "Juniperus thurifera",
# "Larix decidua",
# "Laurus nobilis",
# "Morus alba",
# "Olea europaea",
# "Phillyrea latifolia",
# "Phoenix",
# "Picea abies",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinaster",
# "Pinus pinea",
# "Pinus radiata",
# "Pinus sylvestris",
# "Pinus uncinata",
# "Pistacia terebinthus",
# "Platanus",
# "Platanus hispanica",
# "Populus alba",
# "Populus nigra",
# "Populus nigra/x canadensis",
# "Populus tremula",
# "Populus x canadensis",
# "Prunus",
# "Prunus avium",
# "Prunus lusitanica",
# "Prunus spinosa",
# "Pseudotsuga menziesii",
# "Pyrus",
# "Pyrus malus",
# "Quercus canariensis",
# "Quercus faginea",
# "Quercus humilis/cerroides",
# "Quercus ilex",
# "Quercus petraea",
# "Quercus pyrenaica",
# "Quercus pyrenaica/pubescens",
# "Quercus robur",
# "Quercus suber",
# "Rhamnus alaternus",
# "Robinia pseudacacia",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Salix",
# "Salix alba",
# "Salix atrocinerea",
# "Salix babylonica",
# "Salix caprea",
# "Salix elaeagnos",
# "Salix fragilis",
# "Sambucus nigra",
# "Sambucus racemosa",
# "Sophora japonica",
# "Sorbus",
# "Sorbus aria",
# "Sorbus aucuparia",
# "Sorbus domestica",
# "Sorbus torminalis",
# "Tamarix",
# "Taxus baccata",
# "Tilia",
# "Tilia cordata",
# "Tilia platyphyllos",
# "Ulmus",
# "Ulmus glabra",
# "Ulmus minor",
# "Ulmus pumila"
# ),
# especiesimp = c(
# "Pinus sylvestris",
# "Pinus uncinata",
# "Altres planifolis",
# "Roures",
# "Fagus sylvatica",
# "Quercus ilex",
# "Abies alba",
# "Altres coníferes",
# "Pinus nigra",
# "Pinus halepensis",
# "Pinus pinea",
# "Pinus pinaster",
# "Castanea sativa",
# "Pinus radiata",
# "Quercus suber",
# "Cornus sanguinea"
# ),
# genere = c(
# "Pinus",
# "Acer",
# "Salix",
# "Quercus",
# "Fagus",
# "Sorbus",
# "Ilex",
# "Abies",
# "Olea",
# "Crataegus",
# "Juniperus",
# "Tilia",
# "Corylus",
# "Fraxinus",
# "Alnus",
# "Populus",
# "Prunus",
# "Robinia",
# "Sambucus",
# "Pyrus",
# "Ulmus",
# "Phillyrea",
# "Planifoli",
# "Betula",
# "Platanus",
# "Buxus",
# "Picea",
# "Arbutus",
# "Castanea",
# "Pseudotsuga",
# "Juglans",
# "Cedrus",
# "Cupressus",
# "Eucalyptus",
# "Morus",
# "Phoenix",
# "Celtis",
# "Rhamnus",
# "Laurus",
# "Ficus",
# "Ceratonia",
# "Acacia",
# "Taxus",
# "Ailanthus",
# "Pistacia",
# "Conífera",
# "Sophora",
# "Tamarix",
# "Cornus",
# "Larix"
# ),
# cadesccon = c(
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# "Planifoli", 'Conífera'
# )
# )
# ),
#
# eng = list(
# scenario1 = list(
# especie = c(
# Any = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Quercus humilis/cerroides",
# "Sorbus aria",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Tilia",
# "Acer opalus",
# "Pinus nigra",
# "Alnus glutinosa",
# "Salix",
# "Robinia pseudacacia",
# "Corylus avellana",
# "Quercus petraea",
# "Pinus halepensis",
# "Quercus faginea",
# "Salix atrocinerea",
# "Acer campestre",
# "Crataegus monogyna",
# "Pinus pinea",
# "Tilia platyphyllos",
# "Prunus avium",
# "Juniperus communis",
# "Acer monspessulanum",
# "Fraxinus excelsior",
# "Arbutus unedo",
# "Populus nigra",
# "Tilia cordata",
# "Juniperus oxycedrus",
# "Populus tremula",
# "Pinus radiata",
# "Pseudotsuga menziesii",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber",
# "Sambucus nigra",
# "Platanus hispanica",
# "Quercus canariensis",
# "Ilex aquifolium",
# "Ulmus minor",
# "Populus alba",
# "Celtis australis",
# "Olea europaea",
# "Rhamnus alaternus",
# "Ceratonia siliqua",
# "Prunus",
# "Laurus nobilis",
# "Salix alba",
# "Betula pendula",
# "Fraxinus angustifolia",
# "Eucalyptus camaldulensis",
# "Cupressus arizonica",
# "Quercus robur",
# "Populus x canadensis",
# "Picea abies",
# "Pyrus",
# "Phillyrea latifolia",
# "Buxus sempervirens",
# "Pyrus malus",
# "Taxus baccata",
# "Eucalyptus globulus",
# "Juglans regia",
# "Sorbus aucuparia",
# "Cedrus atlantica",
# "Sorbus",
# "Salix elaeagnos",
# "Ficus carica",
# "Cedrus libani",
# "Betula",
# "Salix caprea",
# "Acer platanoides",
# "Betula pubescens",
# "Larix decidua",
# "Crataegus",
# "Juniperus phoenicea",
# "Quercus pyrenaica",
# "Pistacia terebinthus",
# "Juglans nigra",
# "Cupressus sempervirens",
# "Salix fragilis",
# "Quercus pyrenaica/pubescens",
# "Acer",
# "Juniperus communis/oxycedrus",
# "Altres planifolis",
# "Fraxinus",
# "Ulmus",
# "Populus nigra/x canadensis",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Cupressus",
# "Platanus",
# "Coníferes excepte pins",
# "Arbres de ribera"
# ),
# especiesimp = c(
# Any = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Roures",
# "Altres planifolis",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinea",
# "Altres coníferes",
# "Pinus radiata",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber"
# ),
# genere = c(
# Any = '',
# "Pinus",
# "Quercus",
# "Sorbus",
# "Fagus",
# "Abies",
# "Tilia",
# "Acer",
# "Alnus",
# "Salix",
# "Robinia",
# "Corylus",
# "Crataegus",
# "Prunus",
# "Juniperus",
# "Fraxinus",
# "Arbutus",
# "Populus",
# "Pseudotsuga",
# "Castanea",
# "Sambucus",
# "Platanus",
# "Ilex",
# "Ulmus",
# "Celtis",
# "Olea",
# "Rhamnus",
# "Ceratonia",
# "Laurus",
# "Betula",
# "Eucalyptus",
# "Cupressus",
# "Picea",
# "Pyrus",
# "Phillyrea",
# "Buxus",
# "Taxus",
# "Juglans",
# "Cedrus",
# "Ficus",
# "Larix",
# "Pistacia",
# "Planifoli",
# "Conífera"
# ),
# cadesccon = c(
# Any = '',
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# Any = '',
# "Planifoli", 'Conífera'
# )
# ),
# scenario2 = list(
# especie = c(
# "Abies alba",
# "Abies pinsapo",
# "Acacia dealbata",
# "Acer",
# "Acer campestre",
# "Acer monspessulanum",
# "Acer negundo",
# "Acer opalus",
# "Acer platanoides",
# "Acer pseudoplatanus",
# "Ailanthus altissima",
# "Alnus glutinosa",
# "Altres espècies ripícoles",
# "Altres pins",
# "Altres planifolis",
# "Arbres de ribera",
# "Arbutus unedo",
# "Betula",
# "Betula pendula",
# "Betula pubescens",
# "Buxus sempervirens",
# "Castanea sativa",
# "Cedrus atlantica",
# "Cedrus deodara",
# "Cedrus libani",
# "Celtis australis",
# "Ceratonia siliqua",
# "Coníferes excepte pins",
# "Cornus sanguinea",
# "Corylus avellana",
# "Crataegus",
# "Crataegus monogyna",
# "Cupressus",
# "Cupressus arizonica",
# "Cupressus lusitanica",
# "Cupressus sempervirens",
# "Eucalyptus camaldulensis",
# "Eucalyptus globulus",
# "Fagus sylvatica",
# "Ficus carica",
# "Fraxinus",
# "Fraxinus angustifolia",
# "Fraxinus excelsior",
# "Fraxinus ornus",
# "Ilex aquifolium",
# "Juglans nigra",
# "Juglans regia",
# "Juniperus communis",
# "Juniperus communis/oxycedrus",
# "Juniperus oxycedrus",
# "Juniperus phoenicea",
# "Juniperus thurifera",
# "Larix decidua",
# "Laurus nobilis",
# "Morus alba",
# "Olea europaea",
# "Phillyrea latifolia",
# "Phoenix",
# "Picea abies",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinaster",
# "Pinus pinea",
# "Pinus radiata",
# "Pinus sylvestris",
# "Pinus uncinata",
# "Pistacia terebinthus",
# "Platanus",
# "Platanus hispanica",
# "Populus alba",
# "Populus nigra",
# "Populus nigra/x canadensis",
# "Populus tremula",
# "Populus x canadensis",
# "Prunus",
# "Prunus avium",
# "Prunus lusitanica",
# "Prunus spinosa",
# "Pseudotsuga menziesii",
# "Pyrus",
# "Pyrus malus",
# "Quercus canariensis",
# "Quercus faginea",
# "Quercus humilis/cerroides",
# "Quercus ilex",
# "Quercus petraea",
# "Quercus pyrenaica",
# "Quercus pyrenaica/pubescens",
# "Quercus robur",
# "Quercus suber",
# "Rhamnus alaternus",
# "Robinia pseudacacia",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Salix",
# "Salix alba",
# "Salix atrocinerea",
# "Salix babylonica",
# "Salix caprea",
# "Salix elaeagnos",
# "Salix fragilis",
# "Sambucus nigra",
# "Sambucus racemosa",
# "Sophora japonica",
# "Sorbus",
# "Sorbus aria",
# "Sorbus aucuparia",
# "Sorbus domestica",
# "Sorbus torminalis",
# "Tamarix",
# "Taxus baccata",
# "Tilia",
# "Tilia cordata",
# "Tilia platyphyllos",
# "Ulmus",
# "Ulmus glabra",
# "Ulmus minor",
# "Ulmus pumila"
# ),
# especiesimp = c(
# "Pinus sylvestris",
# "Pinus uncinata",
# "Altres planifolis",
# "Roures",
# "Fagus sylvatica",
# "Quercus ilex",
# "Abies alba",
# "Altres coníferes",
# "Pinus nigra",
# "Pinus halepensis",
# "Pinus pinea",
# "Pinus pinaster",
# "Castanea sativa",
# "Pinus radiata",
# "Quercus suber",
# "Cornus sanguinea"
# ),
# genere = c(
# "Pinus",
# "Acer",
# "Salix",
# "Quercus",
# "Fagus",
# "Sorbus",
# "Ilex",
# "Abies",
# "Olea",
# "Crataegus",
# "Juniperus",
# "Tilia",
# "Corylus",
# "Fraxinus",
# "Alnus",
# "Populus",
# "Prunus",
# "Robinia",
# "Sambucus",
# "Pyrus",
# "Ulmus",
# "Phillyrea",
# "Planifoli",
# "Betula",
# "Platanus",
# "Buxus",
# "Picea",
# "Arbutus",
# "Castanea",
# "Pseudotsuga",
# "Juglans",
# "Cedrus",
# "Cupressus",
# "Eucalyptus",
# "Morus",
# "Phoenix",
# "Celtis",
# "Rhamnus",
# "Laurus",
# "Ficus",
# "Ceratonia",
# "Acacia",
# "Taxus",
# "Ailanthus",
# "Pistacia",
# "Conífera",
# "Sophora",
# "Tamarix",
# "Cornus",
# "Larix"
# ),
# cadesccon = c(
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# "Planifoli", 'Conífera'
# )
# )
# )
# )
#
# dic_grup_func_choices$cat$scenario3 <- dic_grup_func_choices$cat$scenario1
# dic_grup_func_choices$esp$scenario3 <- dic_grup_func_choices$esp$scenario1
# dic_grup_func_choices$eng$scenario3 <- dic_grup_func_choices$eng$scenario1
# dic_grup_func_choices$cat$scenario4 <- dic_grup_func_choices$cat$scenario2
# dic_grup_func_choices$esp$scenario4 <- dic_grup_func_choices$esp$scenario2
# dic_grup_func_choices$eng$scenario4 <- dic_grup_func_choices$eng$scenario2
#
# # Statistic input
# dic_statistic_choices <- list(
# cat = list(
# 'Mitjana' = '_mean',
# 'Mediana' = '_median',
# 'Desviació estàndard' = '_sd',
# 'Mìnim' = '_min',
# 'Màxim' = '_max',
# 'Nombre parcel·les' = '_n',
# 'Quartil 95' = '_q95'
# ),
# esp = list(
# 'Media' = '_mean',
# 'Mediana' = '_median',
# 'Desviación estandar' = '_sd',
# 'Mínimo' = '_min',
# 'Máximo' = '_max',
# 'Número parcelas' = '_n',
# 'Cuartil 95' = '_q95'
# ),
# cat = list(
# 'Mean' = '_mean',
# 'Median' = '_median',
# 'Standard deviation' = '_sd',
# 'Min' = '_min',
# 'Max' = '_max',
# 'Number of plots' = '_n',
# 'Quantile 95' = '_q95'
# )
# )
#
# ## mod_infopanels inputs ####
#
#
# ## mod_table inputs ####
#
# # foo <- tidyIFN::ifn_connect('malditobarbudo')
# # bar_1 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'parcela', TRUE)
# # vars_1 <- names(bar_1$core %>% dplyr::collect())
# # bar_2 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'genere', TRUE)
# # vars_2 <- names(bar_2$core %>% dplyr::collect())
# # bar_3 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'parcela', TRUE)[['core']] %>%
# # dplyr::collect() %>%
# # tidyIFN::summarise_polygons(polygon_group = 'comarca', cd = TRUE)
# # vars_3 <- names(bar_3)
# # bar_4 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'genere', TRUE)[['core']] %>%
# # dplyr::collect() %>%
# # tidyIFN::summarise_polygons(polygon_group = 'comarca', func_group = 'idgenere', cd = TRUE)
# # vars_4 <- names(bar_4)
#
#
# dic_col_vis_input <- list(
# esp = list(
# nocd = list(
# scenario1 = c(
# "ID parcela" = "idparcela",
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "Caducifolia/Esclerofila/Conifera dominante por densidad" = "cadesccon_dom_percdens",
# "Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val",
# "Caducifolia/Esclerofila/Conifera dominante por área basal" = "cadesccon_dom_percab",
# "Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val",
# "Planifolia/Conifera dominante por densidad" = "planifconif_dom_percdens",
# "Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val",
# "Planifolia/Conifera dominante por área basal" = "planifconif_dom_percab",
# "Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val",
# "Género dominante por densidad" = "genere_dom_percdens",
# "Porcentaje Densidad Género dominante" = "genere_dom_percdens_val",
# "Género dominante por área basal" = "genere_dom_percab",
# "Porcentaje Área Basal Género dominante" = "genere_dom_percab_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percdens",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percab",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percab_val",
# "Especie dominante por densidad" = "especie_dom_percdens",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val",
# "Especie dominante por densidad" = "especie_dom_percab",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percab_val",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "Diámetro a la altura del pecho parcela" = "dbh",
# "Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
#
# scenario2 = c(
# "ID parcela" = "idparcela",
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# 'Orden por densidad' = "ordredens",
# 'Orden por área basal' = "ordreab",
# 'Porcentaje densidad' = "percdens",
# 'Porcentaje área basal' = "percab",
# 'Densidad' = "densitat",
# 'Denstidad pies muertos' = "densitatmorts",
# 'Área Basal' = "ab",
# 'Área Basal pies muertos' = "abmorts",
# "Diámetro a la altura del pecho" = "dbh",
# "Diámetro a la altura del pecho pies muertos" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
#
# scenario3 = c(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "Media del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_mean",
# "Media del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_mean",
# "Media del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_mean",
# "Media del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_mean",
# "Media del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_mean",
# "Media del Densidad total parcela" = "densitat_mean",
# "Media del Densidad total pies muertos parcela" = "densitatmorts_mean",
# "Media del Área Basal total parcela" = "ab_mean",
# "Media del Área Basal total pies muertos parcela" = "abmorts_mean",
# "Media del Diámetro a la altura del pecho parcela" = "dbh_mean",
# "Media del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# "Desviación estándar del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_sd",
# "Desviación estándar del Densidad total parcela" = "densitat_sd",
# "Desviación estándar del Densidad total pies muertos parcela" = "densitatmorts_sd",
# "Desviación estándar del Área Basal total parcela" = "ab_sd",
# "Desviación estándar del Área Basal total pies muertos parcela" = "abmorts_sd",
# "Desviación estándar del Diámetro a la altura del pecho parcela" = "dbh_sd",
# "Desviación estándar del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# "Mínimo del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_min",
# "Mínimo del Densidad total parcela" = "densitat_min",
# "Mínimo del Densidad total pies muertos parcela" = "densitatmorts_min",
# "Mínimo del Área Basal total parcela" = "ab_min",
# "Mínimo del Área Basal total pies muertos parcela" = "abmorts_min",
# "Mínimo del Diámetro a la altura del pecho parcela" = "dbh_min",
# "Mínimo del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# "Máximo del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_max",
# "Máximo del Densidad total parcela" = "densitat_max",
# "Máximo del Densidad total pies muertos parcela" = "densitatmorts_max",
# "Máximo del Área Basal total parcela" = "ab_max",
# "Máximo del Área Basal total pies muertos parcela" = "abmorts_max",
# "Máximo del Diámetro a la altura del pecho parcela" = "dbh_max",
# "Máximo del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# "Mediana del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_median",
# "Mediana del Densidad total parcela" = "densitat_median",
# "Mediana del Densidad total pies muertos parcela" = "densitatmorts_median",
# "Mediana del Área Basal total parcela" = "ab_median",
# "Mediana del Área Basal total pies muertos parcela" = "abmorts_median",
# "Mediana del Diámetro a la altura del pecho parcela" = "dbh_median",
# "Mediana del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# "Cuartil 95 del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_q95",
# "Cuartil 95 del Densidad total parcela" = "densitat_q95",
# "Cuartil 95 del Densidad total pies muertos parcela" = "densitatmorts_q95",
# "Cuartil 95 del Área Basal total parcela" = "ab_q95",
# "Cuartil 95 del Área Basal total pies muertos parcela" = "abmorts_q95",
# "Cuartil 95 del Diámetro a la altura del pecho parcela" = "dbh_q95",
# "Cuartil 95 del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# "N del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_n",
# "N del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_n",
# "N del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_n",
# "N del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_n",
# "N del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_n",
# "N del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_n",
# "N del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_n",
# "N del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_n",
# "N del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_n",
# "N del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_n",
# "N del Densidad total parcela" = "densitat_n",
# "N del Densidad total pies muertos parcela" = "densitatmorts_n",
# "N del Área Basal total parcela" = "ab_n",
# "N del Área Basal total pies muertos parcela" = "abmorts_n",
# "N del Diámetro a la altura del pecho parcela" = "dbh_n",
# "N del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# ),
#
# scenario4 = c(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# 'Media del Orden por densidad' = "ordredens_mean",
# 'Media del Orden por área basal' = "ordreab_mean",
# 'Media del Porcentaje densidad' = "percdens_mean",
# 'Media del Porcentaje área basal' = "percab_mean",
# 'Media del Densidad' = "densitat_mean",
# 'Media del Denstidad pies muertos' = "densitatmorts_mean",
# 'Media del Área Basal' = "ab_mean",
# 'Media del Área Basal pies muertos' = "abmorts_mean",
# "Media del Diámetro a la altura del pecho" = "dbh_mean",
# "Media del Diámetro a la altura del pecho pies muertos" = "dbhmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# 'Desviación estándar del Orden por densidad' = "ordredens_sd",
# 'Desviación estándar del Orden por área basal' = "ordreab_sd",
# 'Desviación estándar del Porcentaje densidad' = "percdens_sd",
# 'Desviación estándar del Porcentaje área basal' = "percab_sd",
# 'Desviación estándar del Densidad' = "densitat_sd",
# 'Desviación estándar del Denstidad pies muertos' = "densitatmorts_sd",
# 'Desviación estándar del Área Basal' = "ab_sd",
# 'Desviación estándar del Área Basal pies muertos' = "abmorts_sd",
# "Desviación estándar del Diámetro a la altura del pecho" = "dbh_sd",
# "Desviación estándar del Diámetro a la altura del pecho pies muertos" = "dbhmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# 'Mínimo del Orden por densidad' = "ordredens_min",
# 'Mínimo del Orden por área basal' = "ordreab_min",
# 'Mínimo del Porcentaje densidad' = "percdens_min",
# 'Mínimo del Porcentaje área basal' = "percab_min",
# 'Mínimo del Densidad' = "densitat_min",
# 'Mínimo del Denstidad pies muertos' = "densitatmorts_min",
# 'Mínimo del Área Basal' = "ab_min",
# 'Mínimo del Área Basal pies muertos' = "abmorts_min",
# "Mínimo del Diámetro a la altura del pecho" = "dbh_min",
# "Mínimo del Diámetro a la altura del pecho pies muertos" = "dbhmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# 'Máximo del Orden por densidad' = "ordredens_max",
# 'Máximo del Orden por área basal' = "ordreab_max",
# 'Máximo del Porcentaje densidad' = "percdens_max",
# 'Máximo del Porcentaje área basal' = "percab_max",
# 'Máximo del Densidad' = "densitat_max",
# 'Máximo del Denstidad pies muertos' = "densitatmorts_max",
# 'Máximo del Área Basal' = "ab_max",
# 'Máximo del Área Basal pies muertos' = "abmorts_max",
# "Máximo del Diámetro a la altura del pecho" = "dbh_max",
# "Máximo del Diámetro a la altura del pecho pies muertos" = "dbhmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# 'Mediana del Orden por densidad' = "ordredens_median",
# 'Mediana del Orden por área basal' = "ordreab_median",
# 'Mediana del Porcentaje densidad' = "percdens_median",
# 'Mediana del Porcentaje área basal' = "percab_median",
# 'Mediana del Densidad' = "densitat_median",
# 'Mediana del Denstidad pies muertos' = "densitatmorts_median",
# 'Mediana del Área Basal' = "ab_median",
# 'Mediana del Área Basal pies muertos' = "abmorts_median",
# "Mediana del Diámetro a la altura del pecho" = "dbh_median",
# "Mediana del Diámetro a la altura del pecho pies muertos" = "dbhmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# 'Cuartil 95 del Orden por densidad' = "ordredens_q95",
# 'Cuartil 95 del Orden por área basal' = "ordreab_q95",
# 'Cuartil 95 del Porcentaje densidad' = "percdens_q95",
# 'Cuartil 95 del Porcentaje área basal' = "percab_q95",
# 'Cuartil 95 del Densidad' = "densitat_q95",
# 'Cuartil 95 del Denstidad pies muertos' = "densitatmorts_q95",
# 'Cuartil 95 del Área Basal' = "ab_q95",
# 'Cuartil 95 del Área Basal pies muertos' = "abmorts_q95",
# "Cuartil 95 del Diámetro a la altura del pecho" = "dbh_q95",
# "Cuartil 95 del Diámetro a la altura del pecho pies muertos" = "dbhmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# 'N del Orden por densidad' = "ordredens_n",
# 'N del Orden por área basal' = "ordreab_n",
# 'N del Porcentaje densidad' = "percdens_n",
# 'N del Porcentaje área basal' = "percab_n",
# 'N del Densidad' = "densitat_n",
# 'N del Denstidad pies muertos' = "densitatmorts_n",
# 'N del Área Basal' = "ab_n",
# 'N del Área Basal pies muertos' = "abmorts_n",
# "N del Diámetro a la altura del pecho" = "dbh_n",
# "N del Diámetro a la altura del pecho pies muertos" = "dbhmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# )
# ),
# cd = list(
# scenario1 = list(
# "ID parcela" = 'idparcela',
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "ID clase diamétrica" = "idcd",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
# scenario2 = list(
# "ID parcela" = "idparcela",
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# "ID clase diamétrica" = 'idcd',
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
# scenario3 = list(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "ID clase diamétrica" = 'idcd',
# "Media del Densidad total parcela" = "densitat_mean",
# "Media del Densidad total pies muertos parcela" = "densitatmorts_mean",
# "Media del Área Basal total parcela" = "ab_mean",
# "Media del Área Basal total pies muertos parcela" = "abmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# "Desviación estándar del Densidad total parcela" = "densitat_sd",
# "Desviación estándar del Densidad total pies muertos parcela" = "densitatmorts_sd",
# "Desviación estándar del Área Basal total parcela" = "ab_sd",
# "Desviación estándar del Área Basal total pies muertos parcela" = "abmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# "Mínimo del Densidad total parcela" = "densitat_min",
# "Mínimo del Densidad total pies muertos parcela" = "densitatmorts_min",
# "Mínimo del Área Basal total parcela" = "ab_min",
# "Mínimo del Área Basal total pies muertos parcela" = "abmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# "Máximo del Densidad total parcela" = "densitat_max",
# "Máximo del Densidad total pies muertos parcela" = "densitatmorts_max",
# "Máximo del Área Basal total parcela" = "ab_max",
# "Máximo del Área Basal total pies muertos parcela" = "abmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# "Mediana del Densidad total parcela" = "densitat_median",
# "Mediana del Densidad total pies muertos parcela" = "densitatmorts_median",
# "Mediana del Área Basal total parcela" = "ab_median",
# "Mediana del Área Basal total pies muertos parcela" = "abmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# "Cuartil 95 del Densidad total parcela" = "densitat_q95",
# "Cuartil 95 del Densidad total pies muertos parcela" = "densitatmorts_q95",
# "Cuartil 95 del Área Basal total parcela" = "ab_q95",
# "Cuartil 95 del Área Basal total pies muertos parcela" = "abmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# "N del Densidad total parcela" = "densitat_n",
# "N del Densidad total pies muertos parcela" = "densitatmorts_n",
# "N del Área Basal total parcela" = "ab_n",
# "N del Área Basal total pies muertos parcela" = "abmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# ),
# scenario4 = list(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# "ID clase diamétrica" = 'idcd',
# "Media del Densidad total parcela" = "densitat_mean",
# "Media del Densidad total pies muertos parcela" = "densitatmorts_mean",
# "Media del Área Basal total parcela" = "ab_mean",
# "Media del Área Basal total pies muertos parcela" = "abmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# "Desviación estándar del Densidad total parcela" = "densitat_sd",
# "Desviación estándar del Densidad total pies muertos parcela" = "densitatmorts_sd",
# "Desviación estándar del Área Basal total parcela" = "ab_sd",
# "Desviación estándar del Área Basal total pies muertos parcela" = "abmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# "Mínimo del Densidad total parcela" = "densitat_min",
# "Mínimo del Densidad total pies muertos parcela" = "densitatmorts_min",
# "Mínimo del Área Basal total parcela" = "ab_min",
# "Mínimo del Área Basal total pies muertos parcela" = "abmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# "Máximo del Densidad total parcela" = "densitat_max",
# "Máximo del Densidad total pies muertos parcela" = "densitatmorts_max",
# "Máximo del Área Basal total parcela" = "ab_max",
# "Máximo del Área Basal total pies muertos parcela" = "abmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# "Mediana del Densidad total parcela" = "densitat_median",
# "Mediana del Densidad total pies muertos parcela" = "densitatmorts_median",
# "Mediana del Área Basal total parcela" = "ab_median",
# "Mediana del Área Basal total pies muertos parcela" = "abmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# "Cuartil 95 del Densidad total parcela" = "densitat_q95",
# "Cuartil 95 del Densidad total pies muertos parcela" = "densitatmorts_q95",
# "Cuartil 95 del Área Basal total parcela" = "ab_q95",
# "Cuartil 95 del Área Basal total pies muertos parcela" = "abmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# "N del Densidad total parcela" = "densitat_n",
# "N del Densidad total pies muertos parcela" = "densitatmorts_n",
# "N del Área Basal total parcela" = "ab_n",
# "N del Área Basal total pies muertos parcela" = "abmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# )
# )
# )
# )
#
# ## mod_advancedFilters inputs ####
#
# # adv_fil_filters variable dictionaries
# min_max_to_vec <- function(min, max) {
#
# res <- list()
#
# for (i in 1:length(min)) {
# res[[i]] <- c(min[i], max[i])
# }
#
# return(res)
# }
#
# conn <- tidyIFN::ifn_connect('guest', 'guest')
#
# # clima
# tbl(conn, 'ifn3_clima') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> clima_max_vars_ifn3
#
# tbl(conn, 'ifn3_clima') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(clima_max_vars_ifn3, by = 'var') -> clima_max_min_vars_ifn3
#
# tbl(conn, 'ifn2_clima') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> clima_max_vars_ifn2
#
# tbl(conn, 'ifn2_clima') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(clima_max_vars_ifn2, by = 'var') %>%
# bind_rows(clima_max_min_vars_ifn3) %>%
# group_by(var) %>%
# summarise(min = min(value_min), max = max(value_max)) -> clima_min_max_summary
#
# clima_value <- clima_min_max_summary %>% group_by(var) %>%
# do(value = min_max_to_vec(.$min, .$max))
#
# clima_final_summary <- clima_min_max_summary %>%
# mutate(value = clima_value[['value']],
# label = var)
#
# clima_final_list <- list()
#
# for (i in 1:nrow(clima_final_summary)) {
# clima_final_list[[i]] <- list(
# min = clima_final_summary[['min']][i],
# max = clima_final_summary[['max']][i],
# label = clima_final_summary[['label']][i],
# value = flatten_dbl(clima_final_summary[['value']][[i]])
# )
# }
#
# names(clima_final_list) <- clima_final_summary[['var']]
#
# dic_adv_fil_clima_filters <- list(
# esp = clima_final_list
# )
#
# # sig extra filters
# tbl(conn, 'ifn3_sig') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> sig_max_vars_ifn3
#
# tbl(conn, 'ifn3_sig') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(sig_max_vars_ifn3, by = 'var') -> sig_max_min_vars_ifn3
#
# tbl(conn, 'ifn2_sig') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> sig_max_vars_ifn2
#
# tbl(conn, 'ifn2_sig') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(sig_max_vars_ifn2, by = 'var') %>%
# bind_rows(sig_max_min_vars_ifn3) %>%
# group_by(var) %>%
# summarise(min = min(value_min), max = max(value_max)) -> sig_min_max_summary
#
# sig_value <- sig_min_max_summary %>% group_by(var) %>%
# do(value = min_max_to_vec(.$min, .$max))
#
# sig_final_summary <- sig_min_max_summary %>%
# mutate(value = sig_value[['value']],
# label = var) %>%
# filter(var %in% c('altitud', 'orientacio', 'pendentgraus', 'pendentpercentatge'))
#
# sig_final_list <- list()
#
# for (i in 1:nrow(sig_final_summary)) {
# sig_final_list[[i]] <- list(
# min = sig_final_summary[['min']][i],
# max = sig_final_summary[['max']][i],
# label = sig_final_summary[['label']][i],
# value = flatten_dbl(sig_final_summary[['value']][[i]])
# )
# }
#
# names(sig_final_list) <- sig_final_summary[['var']]
#
# pool::poolClose(conn)
#
# dic_adv_fil_sig_filters <- list(
# esp = sig_final_list
# )
MalditoBarbudo/IFNappkg documentation built on May 13, 2019, 11:52 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# ## objects_needed ####
source('data-raw/polygon_objects_creation.R')
#
# ## mod_data inputs ####
#
# # ifn input
# dic_ifn_choices <- list(
#
# ## catalan
# cat = c(
# 'IFN 2' = 'ifn2',
# 'IFN 3' = 'ifn3',
# 'IFN 4' = 'ifn4',
# 'IFN 3 respecte a IFN 2' = 'ifn3_ifn2',
# 'IFN 4 respecte a IFN 3' = 'ifn3_ifn4'
# ),
#
# ## spanish
# esp = c(
# 'IFN 2' = 'ifn2',
# 'IFN 3' = 'ifn3',
# 'IFN 4' = 'ifn4',
# 'IFN 3 respecto a IFN 2' = 'ifn3_ifn2',
# 'IFN 4 respecto a IFN 3' = 'ifn3_ifn4'
# ),
#
# ## english
# eng = c(
# 'NFI 2' = 'ifn2',
# 'NFI 3' = 'ifn3',
# 'NFI 4' = 'ifn4',
# 'NFI 3 compared to NFI 2' = 'ifn3_ifn2',
# 'NFI 4 compared to NFI 3' = 'ifn3_ifn4'
# )
#
# )
#
# # viz_shape input
# dic_viz_shape_choices <- list(
#
# ## catalan
# cat = c(
# 'Parcel·les' = 'parcela',
# 'Poligons' = 'polygon'
# ),
#
# ## spanish
# esp = c(
# 'Parcelas' = 'parcela',
# 'Polígonos' = 'polygon'
# ),
#
# ## english
# eng = c(
# 'Plots' = 'parcela',
# 'Polygons' = 'polygon'
# )
#
# )
#
# # admin_div input
# dic_admin_div_choices <- list(
#
# ## catalan
# cat = c(
# Catalunya = '', Provincies = 'provincia', Vegueries = 'vegueria',
# Comarques = 'comarca', Municipis = 'municipi'
# ),
#
# ## spanish
# esp = c(
# Cataluña = '', Provincias = 'provincia', Veguerias = 'vegueria',
# Comarcas = 'comarca', Municipios = 'municipi'
# ),
#
# ## english
# eng = c(
# Catalonia = '', Provinces = 'provincia', Vegueries = 'vegueria',
# Region = 'comarca', Municipality = 'municipi'
# )
#
# )
#
# # espai_tipus input
# dic_espai_tipus_choices <- list(
#
# ## catalan
# cat = c(
# 'Nivell de protecció' = 'proteccio',
# "Espai d'interès Nacional" = 'nomein',
# "Espai de Protecció Especial" = 'enpes',
# "Xarxa Natura 2000" = 'nomxarxa2000'
# ),
#
# ## spanish
# esp = c(
# 'Nivel de protección' = 'proteccio',
# "Espacio de Interes Nacional" = 'nomein',
# "Espacio de Protección Especial" = 'enpes',
# "Red Natura 2000" = 'nomxarxa2000'
# ),
#
# ## english
# eng = c(
# 'Protection level' = 'proteccio',
# "National Space of Interest" = 'nomein',
# "Special Protection Space" = 'enpes',
# "Natura 2000 Net" = 'nomxarxa2000'
# )
#
# )
#
# # admin_div_fil input
# dic_admin_div_fil_choices <- list(
#
# ## catalan
# cat = list(
# provincia = c('Totes' = '', names_provincias),
# vegueria = c('Totes' = '', names_veguerias),
# comarca = c('Totes' = '', names_comarcas),
# municipi = c('Tots' = '', names_municipios)
# ),
#
# ## spanish
# esp = list(
# provincia = c('Todas' = '', names_provincias),
# vegueria = c('Todas' = '', names_veguerias),
# comarca = c('Todas' = '', names_comarcas),
# municipi = c('Todos' = '', names_municipios)
# ),
#
# ## english
# eng = list(
# provincia = c('All' = '', names_provincias),
# vegueria = c('All' = '', names_veguerias),
# comarca = c('All' = '', names_comarcas),
# municipi = c('All' = '', names_municipios)
# )
#
# )
#
# # espai_tipus_fil input
# dic_espai_tipus_fil_choices <- list(
#
# ##TODO general sections of the diferent lenguages and spaces must be revised
# ## to comply with the values of the variables to match (i.e. in the
# ## no_whatever)
#
# ## catalan
# cat = list(
# proteccio = list(
# general = c(
# "Tots" = '', "Només protegits" = 'only_protected',
# "Sense protecció" = 'Sense protecció'
# ),
# espais = c(
# "Paratge Natural d'Interès Nacional", "Parc Nacional", "Parc Natural",
# "Reserva Natural de Fauna Salvatge", "Reserva Natural Parcial",
# "Zona de Protecció"
# )
# ),
# nomein = list(
# general = c(
# "Tots" = '', "Només espais d'interès nacional" = 'only_protected',
# "Sense Pein" = 'Sense Pein'
# ),
# espais = c(
# "Aiguabarreig Segre-Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes", "Alta Garrotxa, l'",
# "Alt Pirineu, l'", "Ancosa-Montagut l'", "Artiga de Lin, Era", "Bessons, els",
# "Capçalera de la Noguera Ribagorçana", "Capçaleres del Ter i del Freser",
# "Cap de Creus", "Castell-Cap Roig", "Cingles de Bertí", "Collegats",
# "Collsacabra", "Conreria-Sant Mateu-Céllecs, la", "Costoja", "Estany de Banyoles",
# "Estany de Sils", "Eth Portilhon", "Faiada de Malpàs, la", "Foix, el", "Gallifa",
# "Gavarres, les", "Gelada", "Guilleries, les", "Marimanha", "Massís de l'Albera",
# "Massís de les Cadiretes", "Massís de les Salines", "Massís del Garraf",
# "Massís del Montseny", "Miracle, el", "Moianès, el", "Montanhes de Les e Bossòst",
# "Montesquiu", "Montgrí, el", "Montmell, el", "Montserrat", "Muntanyes de Begur",
# "Muntanyes de l'Ordal", "Muntanyes de Prades", "Muntanyes de Rocacorba",
# "Muntanyes de Tivissa-Vandellòs", "Naut Aran", "Obagues del Riu Corb", "Olèrdola",
# "Penya-segats de la Muga", "Pinya de Rosa", "Plana de Sant Jordi, la",
# "Ports, els", "Puig de la Banya del Boc", "Riba-roja", "Ribera Salada",
# "Riera de Merlès", "Riera de Navel", "Riera de Sorreigs", "Roques Blanques",
# "Saburella", "Sant Joan de Toran", "Sant Llorenç del Munt i l'Obac",
# "Savassona", "Serra Cavallera", "Serra d'Aubenç", "Serra de Bellmunt",
# "Serra de Boumort", "Serra de Carreu", "Serra de Castelltallat",
# "Serra de Collserola", "Serra del Catllaràs", "Serra de Llaberia",
# "Serra del Montsant", "Serra del Montsec", "Serra del Verd",
# "Serra de Miralles-Queralt", "Serra de Montgrony", "Serra de Montsià",
# "Serra d'Ensija-els Rasos de Peguera", "Serra de Picancel", "Serra de Queralt",
# "Serra de Sant Gervàs", "Serra de Turp", "Serra Llarga", "Serra Mitjana",
# "Serres de Busa-els Bastets-Lord", "Serres de Cardó-el Boix", "Serres del Cadí-el Moixeró",
# "Serres de Milany-Santa Magdalena i Puigsacalm-Bellmunt", "Serres de Montnegre-el Corredor",
# "Serres de Pàndols-Cavalls", "Serres de Pradell-l'Argentera",
# "Serres d'Odèn-Port del Comte", "Tossal Gros de Miramar", "Tossals d'Almatret",
# "Tossa Plana de Lles-Puigpedrós", "Tres Hereus, els", "Turons de Maçanet",
# "Turons de la Plana Ausetana", "Vall Alta de Serradell", "Vall del Riu Llobregós",
# "Volcà de la Crosa", "Zona Volcànica de la Garrotxa"
# )
# ),
# enpes = list(
# general = c(
# "Tots" = '', "Només espai de protecció especial" = 'only_protected',
# "Sense protecció" = 'Sense protecció'
# ),
# espais = c(
# "Paratge natural d'interès nacional de cap Gros-cap de Creus",
# "Paratge natural d'interès nacional de la vall del monestir de Poblet",
# "Paratge natural d'interès nacional de la Serra de Rodes",
# "Paratge natural d'interès nacional del massís de l'Albera",
# "Paratge natural d'interès nacional del Massís de Pedraforca",
# "Paratge natural d'interès nacional de Pinya de Rosa",
# "Parc nacional d'Aigüestortes i Estany de Sant Maurici",
# "Parc natural de Cap de Creus",
# "Parc natural de l'Alt Pirineu",
# "Parc natural de la Muntanya de Montserrat",
# "Parc natural de la Zona Volcànica de la Garrotxa",
# "Parc natural del Cadí-Moixeró",
# "Parc natural del Massís de Sant Llorenç del Munt i Serra de l'Obac",
# "Parc Natural del Montsant",
# "Parc natural dels Aiguamolls de l'Empordà",
# "Parc natural dels Ports",
# "Parc Natural Massís del Montseny",
# "Reserva Natural de Fauna Salvatge de l'Aiguabarreig Segre-Noguera Pallaresa",
# "Reserva natural parcial de Baish Aran",
# "Reserva natural parcial de la Capçalera de l'Orlina",
# "Reserva natural parcial de la Fageda de Jordà",
# "Reserva natural parcial de la Llosa",
# "Reserva natural parcial de l'Alt Àneu",
# "Reserva natural parcial de la Muntanya Montserrat",
# "Reserva natural parcial del Barranc de la Trinitat",
# "Reserva natural parcial del Barranc del Titllar",
# "Reserva natural parcial de les Fagedes dels Ports",
# "Reserva natural parcial del volcà Aiguanegra",
# "Reserva natural parcial del volcà Croscat",
# "Reserva natural parcial del volcà de Santa Margarida",
# "Reserva natural parcial del volca Montolivet",
# "Reserva natural parcial del volcà Puig Astrol",
# "Reserva natural parcial de Noguera Pallaresa-Bonaigua",
# "Reserva natural parcial de Riera de Merlès",
# "Reserva natural parcial de St Quirze de Colera",
# "Zona perifèrica de protecció del parc nacional",
# "Zona perifèrica de protecció del Parc natural de la Muntanya de Montserrat"
# )
# ),
# nomxarxa2000 = list(
# general = c(
# "Tots" = '', "Només en Xarxa Natura 2000" = 'only_protected',
# "Sense Xarxa Natura 2000" = 'SenseXarxa'
# ),
# espais = c(
# "Aiguabarreig Segre- Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes",
# "Alta Garrotxa-Massís de les Salines", "Alt Pallars", "Baish Aran",
# "Barranc de Santes Creus", "Bellmunt-Almenara", "Beneïdor", "Capçaleres del Foix",
# "Capçaleres del Ter i del Freser", "Cap de Creus", "El Montgr-Les Medes-El Baix Ter",
# "El Montmell-Marmellar", "Els Bessons", "Era Artiga de Lin-Eth Portilhon",
# "Estany de Banyoles", "Estany de Sils-Riera de Santa Coloma",
# "Gallifa-Cingles de Bertí", "Garriga d'Empordà", "Granyena",
# "La Faiada de Malpàs i Cambatiri", "L'Albera", "Les Gavarres", "Les Guilleries",
# "Litoral del Baix Empordà", "Massís de Bonastre", "Massís de les Cadiretes",
# "Massís del Montseny", "Montgrony", "Montserrat-Roques Blanques- riu Llobregat",
# "Muntanyes de Prades", "Muntanyes de Rocacorba-Puig de la Baya del Boc",
# "Obagues de la riera de Madrona", "Obagues del riu Corb", "Prepirineu Central català",
# "Rasos de Tubau", "Ribera de l'Algars", "Ribera Salada", "Riberes de l'Alt Segre",
# "Riberes de l'Alt Ter", "Riberes del Baix Ter", "Riera de Clariana",
# "Riera de la Goda", "Riera de Merlès", "Riera de Sorreigs", "Riu Brugent",
# "Riu de la Llosa", "Riu Fluvià", "Riu Gaià", "Riu Llobregat d'Empordà-Riera de Torrelles",
# "Riu Siurana i planes del Priorat", "Sant Llorenç del Munt i l'Obac",
# "Secans de la Noguera", "Serra Cavallera",
# "Serra d'Aubenç i Roc de Cogul", "Serra de Boumort- Collegats",
# "Serra de Castelltallat", "Serra de Catllaràs", "Serra de Collserola",
# "Serra de Montsant-Pas de l'Ase", "Serra de Montsià", "Serra de Prada-Castellàs",
# "Serra de Turp i Mora Condal-Valldan", "Serres de Cardó - El Boix",
# "Serres del Litoral central", "Serres del litoral septentrional",
# "Serres del Montsec, Sant Mamet i Mitjana",
# "Serres de Queralt i Els Tossals-Aigua d'Ora", "Sistema prelitoral central",
# "Sistema prelitoral meridional", "Sistema transversal Català",
# "Tivissa-Vandellós-Llaberia", "Tossal de Montagut", "Tossals d'Almatret i Riba-roja",
# "Tossa Plana de Lles-Puigpedrós", "Vall Alta de Serradell - Serra de Sant Gervàs",
# "Vall la Vinaixa", "Valls de l'Anoia", "Valls del Sió-Llobregós",
# "Vessants de la Noguera Ribagorçana", "Zona exclosa", "Zona Volcànica de la Garrotxa"
# )
# )
# ),
#
# ## spanish
# esp = list(
# proteccio = list(
# general = c(
# "Todos" = '', "Solo protegidos" = 'only_protected',
# "Sin protección" = 'Sense protecció'
# ),
# espacios = c(
# "Paraje Natural de Interés Nacional" = "Paratge Natural d'Interès Nacional",
# "Parque Nacional" = "Parc Nacional",
# "Parque Natural" = "Parc Natural",
# "Reserva Natural de Fauna Salvaje" = "Reserva Natural de Fauna Salvatge",
# "Reserva Natural Parcial" = "Reserva Natural Parcial",
# "Zona de protección" = "Zona de Protecció"
# )
# ),
# nomein = list(
# general = c(
# "Todos" = '', "Solo espacios de interés nacional" = 'only_protected',
# "Sin PEIN" = 'Sense Pein'
# ),
# espacios = c(
# "Aiguabarreig Segre-Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes", "Alta Garrotxa, l'",
# "Alt Pirineu, l'", "Ancosa-Montagut l'", "Artiga de Lin, Era", "Bessons, els",
# "Capçalera de la Noguera Ribagorçana", "Capçaleres del Ter i del Freser",
# "Cap de Creus", "Castell-Cap Roig", "Cingles de Bertí", "Collegats",
# "Collsacabra", "Conreria-Sant Mateu-Céllecs, la", "Costoja", "Estany de Banyoles",
# "Estany de Sils", "Eth Portilhon", "Faiada de Malpàs, la", "Foix, el", "Gallifa",
# "Gavarres, les", "Gelada", "Guilleries, les", "Marimanha", "Massís de l'Albera",
# "Massís de les Cadiretes", "Massís de les Salines", "Massís del Garraf",
# "Massís del Montseny", "Miracle, el", "Moianès, el", "Montanhes de Les e Bossòst",
# "Montesquiu", "Montgrí, el", "Montmell, el", "Montserrat", "Muntanyes de Begur",
# "Muntanyes de l'Ordal", "Muntanyes de Prades", "Muntanyes de Rocacorba",
# "Muntanyes de Tivissa-Vandellòs", "Naut Aran", "Obagues del Riu Corb", "Olèrdola",
# "Penya-segats de la Muga", "Pinya de Rosa", "Plana de Sant Jordi, la",
# "Ports, els", "Puig de la Banya del Boc", "Riba-roja", "Ribera Salada",
# "Riera de Merlès", "Riera de Navel", "Riera de Sorreigs", "Roques Blanques",
# "Saburella", "Sant Joan de Toran", "Sant Llorenç del Munt i l'Obac",
# "Savassona", "Serra Cavallera", "Serra d'Aubenç", "Serra de Bellmunt",
# "Serra de Boumort", "Serra de Carreu", "Serra de Castelltallat",
# "Serra de Collserola", "Serra del Catllaràs", "Serra de Llaberia",
# "Serra del Montsant", "Serra del Montsec", "Serra del Verd",
# "Serra de Miralles-Queralt", "Serra de Montgrony", "Serra de Montsià",
# "Serra d'Ensija-els Rasos de Peguera", "Serra de Picancel", "Serra de Queralt",
# "Serra de Sant Gervàs", "Serra de Turp", "Serra Llarga", "Serra Mitjana",
# "Serres de Busa-els Bastets-Lord", "Serres de Cardó-el Boix", "Serres del Cadí-el Moixeró",
# "Serres de Milany-Santa Magdalena i Puigsacalm-Bellmunt", "Serres de Montnegre-el Corredor",
# "Serres de Pàndols-Cavalls", "Serres de Pradell-l'Argentera",
# "Serres d'Odèn-Port del Comte", "Tossal Gros de Miramar", "Tossals d'Almatret",
# "Tossa Plana de Lles-Puigpedrós", "Tres Hereus, els", "Turons de Maçanet",
# "Turons de la Plana Ausetana", "Vall Alta de Serradell", "Vall del Riu Llobregós",
# "Volcà de la Crosa", "Zona Volcànica de la Garrotxa"
# )
# ),
# enpes = list(
# general = c(
# "Todos" = '', "Solo espacios con protección especial" = 'only_protected',
# "Sin ENPES" = 'Sense protecció'
# ),
# espais = c(
# "Paratge natural d'interès nacional de cap Gros-cap de Creus",
# "Paratge natural d'interès nacional de la vall del monestir de Poblet",
# "Paratge natural d'interès nacional de la Serra de Rodes",
# "Paratge natural d'interès nacional del massís de l'Albera",
# "Paratge natural d'interès nacional del Massís de Pedraforca",
# "Paratge natural d'interès nacional de Pinya de Rosa",
# "Parc nacional d'Aigüestortes i Estany de Sant Maurici",
# "Parc natural de Cap de Creus",
# "Parc natural de l'Alt Pirineu",
# "Parc natural de la Muntanya de Montserrat",
# "Parc natural de la Zona Volcànica de la Garrotxa",
# "Parc natural del Cadí-Moixeró",
# "Parc natural del Massís de Sant Llorenç del Munt i Serra de l'Obac",
# "Parc Natural del Montsant",
# "Parc natural dels Aiguamolls de l'Empordà",
# "Parc natural dels Ports",
# "Parc Natural Massís del Montseny",
# "Reserva Natural de Fauna Salvatge de l'Aiguabarreig Segre-Noguera Pallaresa",
# "Reserva natural parcial de Baish Aran",
# "Reserva natural parcial de la Capçalera de l'Orlina",
# "Reserva natural parcial de la Fageda de Jordà",
# "Reserva natural parcial de la Llosa",
# "Reserva natural parcial de l'Alt Àneu",
# "Reserva natural parcial de la Muntanya Montserrat",
# "Reserva natural parcial del Barranc de la Trinitat",
# "Reserva natural parcial del Barranc del Titllar",
# "Reserva natural parcial de les Fagedes dels Ports",
# "Reserva natural parcial del volcà Aiguanegra",
# "Reserva natural parcial del volcà Croscat",
# "Reserva natural parcial del volcà de Santa Margarida",
# "Reserva natural parcial del volca Montolivet",
# "Reserva natural parcial del volcà Puig Astrol",
# "Reserva natural parcial de Noguera Pallaresa-Bonaigua",
# "Reserva natural parcial de Riera de Merlès",
# "Reserva natural parcial de St Quirze de Colera",
# "Zona perifèrica de protecció del parc nacional",
# "Zona perifèrica de protecció del Parc natural de la Muntanya de Montserrat"
# )
# ),
# nomxarxa2000 = list(
# general = c(
# "Todos" = '', "Solo aquellos en la Red Natura 2000" = 'only_protected',
# "Sin Red Natura 2000" = 'SenseXarxa'
# ),
# espais = c(
# "Aiguabarreig Segre- Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes",
# "Alta Garrotxa-Massís de les Salines", "Alt Pallars", "Baish Aran",
# "Barranc de Santes Creus", "Bellmunt-Almenara", "Beneïdor", "Capçaleres del Foix",
# "Capçaleres del Ter i del Freser", "Cap de Creus", "El Montgr-Les Medes-El Baix Ter",
# "El Montmell-Marmellar", "Els Bessons", "Era Artiga de Lin-Eth Portilhon",
# "Estany de Banyoles", "Estany de Sils-Riera de Santa Coloma",
# "Gallifa-Cingles de Bertí", "Garriga d'Empordà", "Granyena",
# "La Faiada de Malpàs i Cambatiri", "L'Albera", "Les Gavarres", "Les Guilleries",
# "Litoral del Baix Empordà", "Massís de Bonastre", "Massís de les Cadiretes",
# "Massís del Montseny", "Montgrony", "Montserrat-Roques Blanques- riu Llobregat",
# "Muntanyes de Prades", "Muntanyes de Rocacorba-Puig de la Baya del Boc",
# "Obagues de la riera de Madrona", "Obagues del riu Corb", "Prepirineu Central català",
# "Rasos de Tubau", "Ribera de l'Algars", "Ribera Salada", "Riberes de l'Alt Segre",
# "Riberes de l'Alt Ter", "Riberes del Baix Ter", "Riera de Clariana",
# "Riera de la Goda", "Riera de Merlès", "Riera de Sorreigs", "Riu Brugent",
# "Riu de la Llosa", "Riu Fluvià", "Riu Gaià", "Riu Llobregat d'Empordà-Riera de Torrelles",
# "Riu Siurana i planes del Priorat", "Sant Llorenç del Munt i l'Obac",
# "Secans de la Noguera", "Serra Cavallera",
# "Serra d'Aubenç i Roc de Cogul", "Serra de Boumort- Collegats",
# "Serra de Castelltallat", "Serra de Catllaràs", "Serra de Collserola",
# "Serra de Montsant-Pas de l'Ase", "Serra de Montsià", "Serra de Prada-Castellàs",
# "Serra de Turp i Mora Condal-Valldan", "Serres de Cardó - El Boix",
# "Serres del Litoral central", "Serres del litoral septentrional",
# "Serres del Montsec, Sant Mamet i Mitjana",
# "Serres de Queralt i Els Tossals-Aigua d'Ora", "Sistema prelitoral central",
# "Sistema prelitoral meridional", "Sistema transversal Català",
# "Tivissa-Vandellós-Llaberia", "Tossal de Montagut", "Tossals d'Almatret i Riba-roja",
# "Tossa Plana de Lles-Puigpedrós", "Vall Alta de Serradell - Serra de Sant Gervàs",
# "Vall la Vinaixa", "Valls de l'Anoia", "Valls del Sió-Llobregós",
# "Vessants de la Noguera Ribagorçana", "Zona exclosa", "Zona Volcànica de la Garrotxa"
# )
# )
# ),
#
# ## english
# eng = list(
# proteccio = list(
# general = c(
# "All" = '', "Only protected" = 'only_protected',
# "No protected" = 'Sense protecció'
# ),
# espacios = c(
# "Paraje Natural de Interés Nacional" = "Paratge Natural d'Interès Nacional",
# "Parque Nacional" = "Parc Nacional",
# "Parque Natural" = "Parc Natural",
# "Reserva Natural de Fauna Salvaje" = "Reserva Natural de Fauna Salvatge",
# "Reserva Natural Parcial" = "Reserva Natural Parcial",
# "Zona de protección" = "Zona de Protecció"
# )
# ),
# nomein = list(
# general = c(
# "All" = '', "Only national spaces of interest" = 'only_protected',
# "No PEIN" = 'Sense Pein'
# ),
# espacios = c(
# "Aiguabarreig Segre-Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes", "Alta Garrotxa, l'",
# "Alt Pirineu, l'", "Ancosa-Montagut l'", "Artiga de Lin, Era", "Bessons, els",
# "Capçalera de la Noguera Ribagorçana", "Capçaleres del Ter i del Freser",
# "Cap de Creus", "Castell-Cap Roig", "Cingles de Bertí", "Collegats",
# "Collsacabra", "Conreria-Sant Mateu-Céllecs, la", "Costoja", "Estany de Banyoles",
# "Estany de Sils", "Eth Portilhon", "Faiada de Malpàs, la", "Foix, el", "Gallifa",
# "Gavarres, les", "Gelada", "Guilleries, les", "Marimanha", "Massís de l'Albera",
# "Massís de les Cadiretes", "Massís de les Salines", "Massís del Garraf",
# "Massís del Montseny", "Miracle, el", "Moianès, el", "Montanhes de Les e Bossòst",
# "Montesquiu", "Montgrí, el", "Montmell, el", "Montserrat", "Muntanyes de Begur",
# "Muntanyes de l'Ordal", "Muntanyes de Prades", "Muntanyes de Rocacorba",
# "Muntanyes de Tivissa-Vandellòs", "Naut Aran", "Obagues del Riu Corb", "Olèrdola",
# "Penya-segats de la Muga", "Pinya de Rosa", "Plana de Sant Jordi, la",
# "Ports, els", "Puig de la Banya del Boc", "Riba-roja", "Ribera Salada",
# "Riera de Merlès", "Riera de Navel", "Riera de Sorreigs", "Roques Blanques",
# "Saburella", "Sant Joan de Toran", "Sant Llorenç del Munt i l'Obac",
# "Savassona", "Serra Cavallera", "Serra d'Aubenç", "Serra de Bellmunt",
# "Serra de Boumort", "Serra de Carreu", "Serra de Castelltallat",
# "Serra de Collserola", "Serra del Catllaràs", "Serra de Llaberia",
# "Serra del Montsant", "Serra del Montsec", "Serra del Verd",
# "Serra de Miralles-Queralt", "Serra de Montgrony", "Serra de Montsià",
# "Serra d'Ensija-els Rasos de Peguera", "Serra de Picancel", "Serra de Queralt",
# "Serra de Sant Gervàs", "Serra de Turp", "Serra Llarga", "Serra Mitjana",
# "Serres de Busa-els Bastets-Lord", "Serres de Cardó-el Boix", "Serres del Cadí-el Moixeró",
# "Serres de Milany-Santa Magdalena i Puigsacalm-Bellmunt", "Serres de Montnegre-el Corredor",
# "Serres de Pàndols-Cavalls", "Serres de Pradell-l'Argentera",
# "Serres d'Odèn-Port del Comte", "Tossal Gros de Miramar", "Tossals d'Almatret",
# "Tossa Plana de Lles-Puigpedrós", "Tres Hereus, els", "Turons de Maçanet",
# "Turons de la Plana Ausetana", "Vall Alta de Serradell", "Vall del Riu Llobregós",
# "Volcà de la Crosa", "Zona Volcànica de la Garrotxa"
# )
# ),
# enpes = list(
# general = c(
# "All" = '', "Only spaces with special protection" = 'only_protected',
# "No ENPES" = 'Sense protecció'
# ),
# espais = c(
# "Paratge natural d'interès nacional de cap Gros-cap de Creus",
# "Paratge natural d'interès nacional de la vall del monestir de Poblet",
# "Paratge natural d'interès nacional de la Serra de Rodes",
# "Paratge natural d'interès nacional del massís de l'Albera",
# "Paratge natural d'interès nacional del Massís de Pedraforca",
# "Paratge natural d'interès nacional de Pinya de Rosa",
# "Parc nacional d'Aigüestortes i Estany de Sant Maurici",
# "Parc natural de Cap de Creus",
# "Parc natural de l'Alt Pirineu",
# "Parc natural de la Muntanya de Montserrat",
# "Parc natural de la Zona Volcànica de la Garrotxa",
# "Parc natural del Cadí-Moixeró",
# "Parc natural del Massís de Sant Llorenç del Munt i Serra de l'Obac",
# "Parc Natural del Montsant",
# "Parc natural dels Aiguamolls de l'Empordà",
# "Parc natural dels Ports",
# "Parc Natural Massís del Montseny",
# "Reserva Natural de Fauna Salvatge de l'Aiguabarreig Segre-Noguera Pallaresa",
# "Reserva natural parcial de Baish Aran",
# "Reserva natural parcial de la Capçalera de l'Orlina",
# "Reserva natural parcial de la Fageda de Jordà",
# "Reserva natural parcial de la Llosa",
# "Reserva natural parcial de l'Alt Àneu",
# "Reserva natural parcial de la Muntanya Montserrat",
# "Reserva natural parcial del Barranc de la Trinitat",
# "Reserva natural parcial del Barranc del Titllar",
# "Reserva natural parcial de les Fagedes dels Ports",
# "Reserva natural parcial del volcà Aiguanegra",
# "Reserva natural parcial del volcà Croscat",
# "Reserva natural parcial del volcà de Santa Margarida",
# "Reserva natural parcial del volca Montolivet",
# "Reserva natural parcial del volcà Puig Astrol",
# "Reserva natural parcial de Noguera Pallaresa-Bonaigua",
# "Reserva natural parcial de Riera de Merlès",
# "Reserva natural parcial de St Quirze de Colera",
# "Zona perifèrica de protecció del parc nacional",
# "Zona perifèrica de protecció del Parc natural de la Muntanya de Montserrat"
# )
# ),
# nomxarxa2000 = list(
# general = c(
# "All" = '', "Only those inside Natura 2000 Net" = 'only_protected',
# "No Natura 2000 Net" = 'SenseXarxa'
# ),
# espais = c(
# "Aiguabarreig Segre- Noguera Pallaresa", "Aiguabarreig Segre-Noguera Ribagorçana",
# "Aiguamolls de l'Alt Empordà", "Aigüestortes",
# "Alta Garrotxa-Massís de les Salines", "Alt Pallars", "Baish Aran",
# "Barranc de Santes Creus", "Bellmunt-Almenara", "Beneïdor", "Capçaleres del Foix",
# "Capçaleres del Ter i del Freser", "Cap de Creus", "El Montgr-Les Medes-El Baix Ter",
# "El Montmell-Marmellar", "Els Bessons", "Era Artiga de Lin-Eth Portilhon",
# "Estany de Banyoles", "Estany de Sils-Riera de Santa Coloma",
# "Gallifa-Cingles de Bertí", "Garriga d'Empordà", "Granyena",
# "La Faiada de Malpàs i Cambatiri", "L'Albera", "Les Gavarres", "Les Guilleries",
# "Litoral del Baix Empordà", "Massís de Bonastre", "Massís de les Cadiretes",
# "Massís del Montseny", "Montgrony", "Montserrat-Roques Blanques- riu Llobregat",
# "Muntanyes de Prades", "Muntanyes de Rocacorba-Puig de la Baya del Boc",
# "Obagues de la riera de Madrona", "Obagues del riu Corb", "Prepirineu Central català",
# "Rasos de Tubau", "Ribera de l'Algars", "Ribera Salada", "Riberes de l'Alt Segre",
# "Riberes de l'Alt Ter", "Riberes del Baix Ter", "Riera de Clariana",
# "Riera de la Goda", "Riera de Merlès", "Riera de Sorreigs", "Riu Brugent",
# "Riu de la Llosa", "Riu Fluvià", "Riu Gaià", "Riu Llobregat d'Empordà-Riera de Torrelles",
# "Riu Siurana i planes del Priorat", "Sant Llorenç del Munt i l'Obac",
# "Secans de la Noguera", "Serra Cavallera",
# "Serra d'Aubenç i Roc de Cogul", "Serra de Boumort- Collegats",
# "Serra de Castelltallat", "Serra de Catllaràs", "Serra de Collserola",
# "Serra de Montsant-Pas de l'Ase", "Serra de Montsià", "Serra de Prada-Castellàs",
# "Serra de Turp i Mora Condal-Valldan", "Serres de Cardó - El Boix",
# "Serres del Litoral central", "Serres del litoral septentrional",
# "Serres del Montsec, Sant Mamet i Mitjana",
# "Serres de Queralt i Els Tossals-Aigua d'Ora", "Sistema prelitoral central",
# "Sistema prelitoral meridional", "Sistema transversal Català",
# "Tivissa-Vandellós-Llaberia", "Tossal de Montagut", "Tossals d'Almatret i Riba-roja",
# "Tossa Plana de Lles-Puigpedrós", "Vall Alta de Serradell - Serra de Sant Gervàs",
# "Vall la Vinaixa", "Valls de l'Anoia", "Valls del Sió-Llobregós",
# "Vessants de la Noguera Ribagorçana", "Zona exclosa", "Zona Volcànica de la Garrotxa"
# )
# )
# )
#
# )
#
# # agg_level input
# dic_agg_level_choices <- list(
# cat = c(
# 'Agregat o Total???' = 'parcela',
# 'Desglossat per Espècie' = 'especie',
# 'Desglossat per Espècie simplificat' = 'especiesimp',
# 'Desglossat per Gènere' = 'genere',
# 'Desglossat per Conífera/Caducifoli/Esclerofil·le' = 'cadesccon',
# 'Desglossat per Conífera/Planifoli' = 'planifconif'
# ),
# esp = c(
# 'Total por parcela' = 'parcela',
# 'Desglosado por Especie' = 'especie',
# 'Desglosado por Especie simplificada' = 'especiesimp',
# 'Desglosado por Género' = 'genere',
# 'Desglosado por Caducifolio/Esclerófila/Conífera' = 'cadesccon',
# 'Desglosado por Planifolia/Conífera' = 'planifconif'
# ),
# eng = c(
# 'Aggregated or Total???' = 'parcela',
# 'Breakdown by Species' = 'especie',
# 'Breakdown by Simplified Species' = 'especiesimp',
# 'Breakdown by Genera' = 'genere',
# 'Breakdown by Deciduous/Sclerophyllous/Conifer' = 'cadesccon',
# 'Breakdown by Broadleaf/Conifer' = 'planifconif'
# )
# )
#
#
# ## mod_viz inputs ####
#
# # Color input
# dic_color_choices <- list(
#
# ## catalan
# cat = list(
# scenario1 = list(
# "Variables climàtiques" = c(
# 'Radiació anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura mitjana anual' = "temperaturamitjanaanual",
# 'Temperatura màxima anual' = "temperaturamaximaanual",
# 'Precipitació anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# "ID parcel·la" = "idparcela",
# "ID classe" = "idclasse",
# "Caducifoli/Esclerofil/Conifera dominant per densitat" = "cadesccon_dom_percdens",
# "Percentatge Densitat Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percdens_val",
# "Caducifoli/Esclerofil/Conifera dominant per àrea basal" = "cadesccon_dom_percab",
# "Percentatge Àrea Basal Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percab_val",
# "Planifoli/Conifera dominant per densitat" = "planifconif_dom_percdens",
# "Percentatge Densitat Planifoli/Conifera dominant" = "planifconif_dom_percdens_val",
# "Planifoli/Conifera dominant per àrea basal" = "planifconif_dom_percab",
# "Percentatge Àrea Basal Planifoli/Conifera dominant" = "planifconif_dom_percab_val",
# "Gènere dominant per densitat" = "genere_dom_percdens",
# "Percentatge Densitat Gènere dominant" = "genere_dom_percdens_val",
# "Gènere dominant per àrea basal" = "genere_dom_percab",
# "Percentatge Àrea Basal Gènere dominant" = "genere_dom_percab_val",
# "Espècie simplificat dominant per densitat" = "especiesimp_dom_percdens",
# "Percentatge Densitat Espècie simplificat dominant" = "especiesimp_dom_percdens_val",
# "Espècie simplificat dominant per àrea basal" = "especiesimp_dom_percab",
# "Percentatge Àrea Basal Espècie simplificat dominant" = "especiesimp_dom_percab_val",
# "Espècie dominant per densitat" = "especie_dom_percdens",
# "Percentatge Densitat Espècie dominant" = "especie_dom_percdens_val",
# "Espècie dominant per àrea basal" = "especie_dom_percab",
# "Percentatge Àrea Basal Espècie dominant" = "especie_dom_percab_val",
# "Densitat total parcel·la" = "densitat",
# "Densitat total peus morts parcel·la" = "densitatmorts",
# "Àrea Basal total parcel·la" = "ab",
# "Àrea Basal total peus morts parcel·la" = "abmorts",
# "Diàmetre a l'altura del pit parcel·la" = "dbh",
# "Diàmetre a l'altura del pit peus morts parcel·la" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario2 = list(
# "Variables climàtiques" = c(
# 'Radiació anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura mitjana anual' = "temperaturamitjanaanual",
# 'Temperatura màxima anual' = "temperaturamaximaanual",
# 'Precipitació anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# 'ID parcel·la' = "idparcela",
# 'ID classe' = "idclasse",
# 'Ordre per Densitat' = "ordredens",
# 'Ordre per Àrea Basal' = "ordreab",
# 'Percentatge Densitat' = "percdens",
# 'Percentatge Àrea Basal' = "percab",
# 'Densitat' = "densitat",
# 'Denstitat peus morts' = "densitatmorts",
# 'Àrea Basal' = "ab",
# 'Àrea Basal peus morts' = "abmorts",
# "Diàmetre a l'altura del pit" = "dbh",
# "Diàmetre a l'altura del pit peus morts" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario3 = list(
# 'Variables IFN' = c(
# "Percentatge Densitat Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percdens_val",
# "Percentatge Àrea Basal Caducifoli/Esclerofil/Conifera dominant" = "cadesccon_dom_percab_val",
# "Percentatge Densitat Planifoli/Conifera dominant" = "planifconif_dom_percdens_val",
# "Percentatge Àrea Basal Planifoli/Conifera dominant" = "planifconif_dom_percab_val",
# "Percentatge Densitat Gènere dominant" = "genere_dom_percdens_val",
# "Percentatge Àrea Basal Gènere dominant" = "genere_dom_percab_val",
# "Percentatge Densitat Espècie dominant" = "especiesimp_dom_percdens_val",
# "Percentatge Àrea Basal Espècie dominant" = "especiesimp_dom_percab_val",
# "Percentatge Densitat Espècie simplificat dominant" = "especie_dom_percdens_val",
# "Percentatge Àrea Basal Espècie simplificat dominant" = "especie_dom_percab_val",
# "Densitat total parcel·la" = "densitat",
# "Densitat total peus morts parcel·la" = "densitatmorts",
# "Àrea Basal total parcel·la" = "ab",
# "Àrea Basal total peus morts parcel·la" = "abmorts",
# "Diàmetre a l'altura del pit parcel·la" = "dbh",
# "Diàmetre a l'altura del pit peus morts parcel·la" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario4 = list(
# 'Variables IFN' = c(
# 'Ordre per Densitat' = "ordredens",
# 'Ordre per Àrea Basal' = "ordreab",
# 'Percentatge Densitat' = "percdens",
# 'Percentatge Àrea Basal' = "percab",
# 'Densitat' = "densitat",
# 'Denstitat peus morts' = "densitatmorts",
# 'Àrea Basal' = "ab",
# 'Àrea Basal peus morts' = "abmorts",
# "Diàmetre a l'altura del pit" = "dbh",
# "Diàmetre a l'altura del pit peus morts" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# )
# ),
#
#
# ## spanish
# esp = list(
# scenario1 = list(
# "Variables climáticas" = c(
# 'Radiación anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura media anual' = "temperaturamitjanaanual",
# 'Temperatura máxima anual' = "temperaturamaximaanual",
# 'Precipitación anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# "ID parcela" = "idparcela",
# "ID clase" = "idclasse",
# "Caducifolia/Esclerofila/Conifera dominante por densidad" = "cadesccon_dom_percdens",
# "Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val",
# "Caducifolia/Esclerofila/Conifera dominante por área basal" = "cadesccon_dom_percab",
# "Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val",
# "Planifolia/Conifera dominante por densidad" = "planifconif_dom_percdens",
# "Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val",
# "Planifolia/Conifera dominante por área basal" = "planifconif_dom_percab",
# "Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val",
# "Género dominante por densidad" = "genere_dom_percdens",
# "Porcentaje Densidad Género dominante" = "genere_dom_percdens_val",
# "Género dominante por área basal" = "genere_dom_percab",
# "Porcentaje Área Basal Género dominante" = "genere_dom_percab_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percdens",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percab",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percab_val",
# "Especie dominante por densidad" = "especie_dom_percdens",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val",
# "Especie dominante por densidad" = "especie_dom_percab",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percab_val",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "Diámetro a la altura del pecho parcela" = "dbh",
# "Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario2 = list(
# "Variables climáticas" = c(
# 'Radiación anual' = 'radiacioanual',
# 'Temperatura mínima anual' = "temperaturaminimaanual",
# 'Temperatura media anual' = "temperaturamitjanaanual",
# 'Temperatura máxima anual' = "temperaturamaximaanual",
# 'Precipitación anual' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "Variables IFN" = c(
# 'ID parcela' = "idparcela",
# 'ID clase' = "idclasse",
# 'Orden por densidad' = "ordredens",
# 'Orden por área basal' = "ordreab",
# 'Porcentaje densidad' = "percdens",
# 'Porcentaje área basal' = "percab",
# 'Densidad' = "densitat",
# 'Denstidad pies muertos' = "densitatmorts",
# 'Área Basal' = "ab",
# 'Área Basal pies muertos' = "abmorts",
# "Diámetro a la altura del pecho" = "dbh",
# "Diámetro a la altura del pecho pies muertos" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario3 = list(
# "Variables IFN" = c(
# "Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val",
# "Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val",
# "Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val",
# "Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val",
# "Porcentaje Densidad Género dominante" = "genere_dom_percdens_val",
# "Porcentaje Área Basal Género dominante" = "genere_dom_percab_val",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val",
# "Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val",
# "Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "Diámetro a la altura del pecho parcela" = "dbh",
# "Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario4 = list(
# "Variables IFN" = c(
# 'Orden por densidad' = "ordredens",
# 'Orden por área basal' = "ordreab",
# 'Porcentaje densidad' = "percdens",
# 'Porcentaje área basal' = "percab",
# 'Densidad' = "densitat",
# 'Denstidad pies muertos' = "densitatmorts",
# 'Área Basal' = "ab",
# 'Área Basal pies muertos' = "abmorts",
# "Diámetro a la altura del pecho" = "dbh",
# "Diámetro a la altura del pecho pies muertos" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# )
# ),
#
# ## english
# eng = list(
# scenario1 = list(
# "Environmental Variables" = c(
# 'Annual radiation' = 'radiacioanual',
# 'Annual Min Temperature' = "temperaturaminimaanual",
# 'Annual Mean Temperature' = "temperaturamitjanaanual",
# 'Annual Max Temperature' = "temperaturamaximaanual",
# 'Annual Precipitation' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "NFI Variables" = c(
# "ID plot" = "idparcela",
# "ID class" = "idclasse",
# "Dominant Deciduous/Sclerophyllous/Conifer by density" = "cadesccon_dom_percdens",
# "Density Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percdens_val",
# "Dominant Deciduous/Sclerophyllous/Conifer by basal area" = "cadesccon_dom_percab",
# "Basal Area Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percab_val",
# "Dominant Broadleaf/Conifer by density" = "planifconif_dom_percdens",
# "Density Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percdens_val",
# "Dominant Broadleaf/Conifer by basal area" = "planifconif_dom_percab",
# "Basal Area Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percab_val",
# "Dominant Genera by density" = "genere_dom_percdens",
# "Density Percentage Dominant genera" = "genere_dom_percdens_val",
# "Dominant Genera by basal area" = "genere_dom_percab",
# "Basal Area Percentage Dominant Genera" = "genere_dom_percab_val",
# "Dominant Simplified Species by density" = "especiesimp_dom_percdens",
# "Density Percentage Dominant Simplified Species" = "especiesimp_dom_percdens_val",
# "Dominant Simplified Species by basal area" = "especiesimp_dom_percab",
# "Basal Area Percentage Dominant Simplified Species" = "especiesimp_dom_percab_val",
# "Dominant Species by density" = "especie_dom_percdens",
# "Density Percentage Dominant Species" = "especie_dom_percdens_val",
# "Dominant Species by basal area" = "especie_dom_percab",
# "Basal Area Percentage Dominant Species" = "especie_dom_percab_val",
# "Total Plot Density" = "densitat",
# "Total Plot Density Dead Trees" = "densitatmorts",
# "Total Plot Basal Area" = "ab",
# "Total Plot Basal Area Dead Trees" = "abmorts",
# "Diameter at Breast Height Plot" = "dbh",
# "Diameter at Breast Height Dead Trees plot" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario2 = list(
# "Environmental Variables" = c(
# 'Annual radiation' = 'radiacioanual',
# 'Annual Min Temperature' = "temperaturaminimaanual",
# 'Annual Mean Temperature' = "temperaturamitjanaanual",
# 'Annual Max Temperature' = "temperaturamaximaanual",
# 'Annual Precipitation' = "precipitacioanual",
# 'NPP_S' = "npp_s"
# ),
# "NFI Variables" = c(
# 'ID plot' = "idparcela",
# 'ID class' = "idclasse",
# 'Rank by Density' = "ordredens",
# 'Rank by Basal Area' = "ordreab",
# 'Density Percentage' = "percdens",
# 'Basal Area Percentage' = "percab",
# 'Density' = "densitat",
# 'Density Dead Trees' = "densitatmorts",
# 'Basal Area' = "ab",
# 'Basal Area Dead Trees' = "abmorts",
# "Diameter at Breast Height" = "dbh",
# "Diameter at Breast Height Dead Trees" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario3 = list(
# "NFI Variables" = c(
# "Density Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percdens_val",
# "Basal Area Percentage Dominant Deciduous/Sclerophyllous/Conifer" = "cadesccon_dom_percab_val",
# "Density Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percdens_val",
# "Basal Area Percentage Dominant Broadleaf/Conifer" = "planifconif_dom_percab_val",
# "Density Percentage Dominant genera" = "genere_dom_percdens_val",
# "Basal Area Percentage Dominant Genera" = "genere_dom_percab_val",
# "Density Percentage Dominant Simplified Species" = "especiesimp_dom_percdens_val",
# "Basal Area Percentage Dominant Simplified Species" = "especiesimp_dom_percab_val",
# "Density Percentage Dominant Species" = "especie_dom_percdens_val",
# "Basal Area Percentage Dominant Species" = "especie_dom_percab_val",
# "Total Plot Density" = "densitat",
# "Total Plot Density Dead Trees" = "densitatmorts",
# "Total Plot Basal Area" = "ab",
# "Total Plot Basal Area Dead Trees" = "abmorts",
# "Diameter at Breast Height Plot" = "dbh",
# "Diameter at Breast Height Dead Trees plot" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# ),
# scenario4 = list(
# "NFI Varibales" = c(
# 'Rank by Density' = "ordredens",
# 'Rank by Basal Area' = "ordreab",
# 'Density Percentage' = "percdens",
# 'Basal Area Percentage' = "percab",
# 'Density' = "densitat",
# 'Density Dead Trees' = "densitatmorts",
# 'Basal Area' = "ab",
# 'Basal Area Dead Trees' = "abmorts",
# "Diameter at Breast Height" = "dbh",
# "Diameter at Breast Height Dead Trees" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# # "iavc" = "iavc",
# # "iavc_creaf" = "iavc_creaf",
# # "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# # "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# )
# )
# )
# )
#
# # Mida (size) input
# dic_mida_choices <- dic_color_choices
# dic_mida_choices$cat <- dic_mida_choices$cat %>%
# purrr::modify_depth(1, function(x) {c(Cap = '', x)})
# dic_mida_choices$esp <- dic_mida_choices$esp %>%
# purrr::modify_depth(1, function(x) {c(Ninguna = '', x)})
# dic_mida_choices$eng <- dic_mida_choices$eng %>%
# purrr::modify_depth(1, function(x) {c(None = '', x)})
#
# # Functional type group input
# dic_tipo_grup_func_choices <- list(
# cat = list(
# 'Espècie' = 'especie',
# 'Espècie simplificat' = 'especiesimp',
# 'Gènere' = 'genere',
# 'Conífera/Caducifoli/Esclerofil·le' = 'cadesccon',
# 'Conífera/Planifoli' = 'planifconif'
# ),
# esp = list(
# 'Especie' = 'especie',
# 'Especie simplificada' = 'especiesimp',
# 'Género' = 'genere',
# 'Caducifolia/Esclerófila/Conífera' = 'cadesccon',
# 'Planifolia/Conífera' = 'planifconif'
# ),
# eng = list(
# 'Species' = 'especie',
# 'Simplified Species' = 'especiesimp',
# 'Genera' = 'genere',
# 'Deciduous/Sclerophyllous/Conifer' = 'cadesccon',
# 'Broadleaf/Conifer' = 'planifconif'
# )
# )
#
# # Functional group value input
# dic_grup_func_choices <- list(
# cat = list(
# scenario1 = list(
# especie = c(
# Qualsevol = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Quercus humilis/cerroides",
# "Sorbus aria",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Tilia",
# "Acer opalus",
# "Pinus nigra",
# "Alnus glutinosa",
# "Salix",
# "Robinia pseudacacia",
# "Corylus avellana",
# "Quercus petraea",
# "Pinus halepensis",
# "Quercus faginea",
# "Salix atrocinerea",
# "Acer campestre",
# "Crataegus monogyna",
# "Pinus pinea",
# "Tilia platyphyllos",
# "Prunus avium",
# "Juniperus communis",
# "Acer monspessulanum",
# "Fraxinus excelsior",
# "Arbutus unedo",
# "Populus nigra",
# "Tilia cordata",
# "Juniperus oxycedrus",
# "Populus tremula",
# "Pinus radiata",
# "Pseudotsuga menziesii",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber",
# "Sambucus nigra",
# "Platanus hispanica",
# "Quercus canariensis",
# "Ilex aquifolium",
# "Ulmus minor",
# "Populus alba",
# "Celtis australis",
# "Olea europaea",
# "Rhamnus alaternus",
# "Ceratonia siliqua",
# "Prunus",
# "Laurus nobilis",
# "Salix alba",
# "Betula pendula",
# "Fraxinus angustifolia",
# "Eucalyptus camaldulensis",
# "Cupressus arizonica",
# "Quercus robur",
# "Populus x canadensis",
# "Picea abies",
# "Pyrus",
# "Phillyrea latifolia",
# "Buxus sempervirens",
# "Pyrus malus",
# "Taxus baccata",
# "Eucalyptus globulus",
# "Juglans regia",
# "Sorbus aucuparia",
# "Cedrus atlantica",
# "Sorbus",
# "Salix elaeagnos",
# "Ficus carica",
# "Cedrus libani",
# "Betula",
# "Salix caprea",
# "Acer platanoides",
# "Betula pubescens",
# "Larix decidua",
# "Crataegus",
# "Juniperus phoenicea",
# "Quercus pyrenaica",
# "Pistacia terebinthus",
# "Juglans nigra",
# "Cupressus sempervirens",
# "Salix fragilis",
# "Quercus pyrenaica/pubescens",
# "Acer",
# "Juniperus communis/oxycedrus",
# "Altres planifolis",
# "Fraxinus",
# "Ulmus",
# "Populus nigra/x canadensis",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Cupressus",
# "Platanus",
# "Coníferes excepte pins",
# "Arbres de ribera"
# ),
# especiesimp = c(
# Qualsevol = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Roures",
# "Altres planifolis",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinea",
# "Altres coníferes",
# "Pinus radiata",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber"
# ),
# genere = c(
# Qualsevol = '',
# "Pinus",
# "Quercus",
# "Sorbus",
# "Fagus",
# "Abies",
# "Tilia",
# "Acer",
# "Alnus",
# "Salix",
# "Robinia",
# "Corylus",
# "Crataegus",
# "Prunus",
# "Juniperus",
# "Fraxinus",
# "Arbutus",
# "Populus",
# "Pseudotsuga",
# "Castanea",
# "Sambucus",
# "Platanus",
# "Ilex",
# "Ulmus",
# "Celtis",
# "Olea",
# "Rhamnus",
# "Ceratonia",
# "Laurus",
# "Betula",
# "Eucalyptus",
# "Cupressus",
# "Picea",
# "Pyrus",
# "Phillyrea",
# "Buxus",
# "Taxus",
# "Juglans",
# "Cedrus",
# "Ficus",
# "Larix",
# "Pistacia",
# "Planifoli",
# "Conífera"
# ),
# cadesccon = c(
# Qualsevol = '',
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# Qualsevol = '',
# "Planifoli", 'Conífera'
# )
# ),
# scenario2 = list(
# especie = c(
# "Abies alba",
# "Abies pinsapo",
# "Acacia dealbata",
# "Acer",
# "Acer campestre",
# "Acer monspessulanum",
# "Acer negundo",
# "Acer opalus",
# "Acer platanoides",
# "Acer pseudoplatanus",
# "Ailanthus altissima",
# "Alnus glutinosa",
# "Altres espècies ripícoles",
# "Altres pins",
# "Altres planifolis",
# "Arbres de ribera",
# "Arbutus unedo",
# "Betula",
# "Betula pendula",
# "Betula pubescens",
# "Buxus sempervirens",
# "Castanea sativa",
# "Cedrus atlantica",
# "Cedrus deodara",
# "Cedrus libani",
# "Celtis australis",
# "Ceratonia siliqua",
# "Coníferes excepte pins",
# "Cornus sanguinea",
# "Corylus avellana",
# "Crataegus",
# "Crataegus monogyna",
# "Cupressus",
# "Cupressus arizonica",
# "Cupressus lusitanica",
# "Cupressus sempervirens",
# "Eucalyptus camaldulensis",
# "Eucalyptus globulus",
# "Fagus sylvatica",
# "Ficus carica",
# "Fraxinus",
# "Fraxinus angustifolia",
# "Fraxinus excelsior",
# "Fraxinus ornus",
# "Ilex aquifolium",
# "Juglans nigra",
# "Juglans regia",
# "Juniperus communis",
# "Juniperus communis/oxycedrus",
# "Juniperus oxycedrus",
# "Juniperus phoenicea",
# "Juniperus thurifera",
# "Larix decidua",
# "Laurus nobilis",
# "Morus alba",
# "Olea europaea",
# "Phillyrea latifolia",
# "Phoenix",
# "Picea abies",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinaster",
# "Pinus pinea",
# "Pinus radiata",
# "Pinus sylvestris",
# "Pinus uncinata",
# "Pistacia terebinthus",
# "Platanus",
# "Platanus hispanica",
# "Populus alba",
# "Populus nigra",
# "Populus nigra/x canadensis",
# "Populus tremula",
# "Populus x canadensis",
# "Prunus",
# "Prunus avium",
# "Prunus lusitanica",
# "Prunus spinosa",
# "Pseudotsuga menziesii",
# "Pyrus",
# "Pyrus malus",
# "Quercus canariensis",
# "Quercus faginea",
# "Quercus humilis/cerroides",
# "Quercus ilex",
# "Quercus petraea",
# "Quercus pyrenaica",
# "Quercus pyrenaica/pubescens",
# "Quercus robur",
# "Quercus suber",
# "Rhamnus alaternus",
# "Robinia pseudacacia",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Salix",
# "Salix alba",
# "Salix atrocinerea",
# "Salix babylonica",
# "Salix caprea",
# "Salix elaeagnos",
# "Salix fragilis",
# "Sambucus nigra",
# "Sambucus racemosa",
# "Sophora japonica",
# "Sorbus",
# "Sorbus aria",
# "Sorbus aucuparia",
# "Sorbus domestica",
# "Sorbus torminalis",
# "Tamarix",
# "Taxus baccata",
# "Tilia",
# "Tilia cordata",
# "Tilia platyphyllos",
# "Ulmus",
# "Ulmus glabra",
# "Ulmus minor",
# "Ulmus pumila"
# ),
# especiesimp = c(
# "Pinus sylvestris",
# "Pinus uncinata",
# "Altres planifolis",
# "Roures",
# "Fagus sylvatica",
# "Quercus ilex",
# "Abies alba",
# "Altres coníferes",
# "Pinus nigra",
# "Pinus halepensis",
# "Pinus pinea",
# "Pinus pinaster",
# "Castanea sativa",
# "Pinus radiata",
# "Quercus suber",
# "Cornus sanguinea"
# ),
# genere = c(
# "Pinus",
# "Acer",
# "Salix",
# "Quercus",
# "Fagus",
# "Sorbus",
# "Ilex",
# "Abies",
# "Olea",
# "Crataegus",
# "Juniperus",
# "Tilia",
# "Corylus",
# "Fraxinus",
# "Alnus",
# "Populus",
# "Prunus",
# "Robinia",
# "Sambucus",
# "Pyrus",
# "Ulmus",
# "Phillyrea",
# "Planifoli",
# "Betula",
# "Platanus",
# "Buxus",
# "Picea",
# "Arbutus",
# "Castanea",
# "Pseudotsuga",
# "Juglans",
# "Cedrus",
# "Cupressus",
# "Eucalyptus",
# "Morus",
# "Phoenix",
# "Celtis",
# "Rhamnus",
# "Laurus",
# "Ficus",
# "Ceratonia",
# "Acacia",
# "Taxus",
# "Ailanthus",
# "Pistacia",
# "Conífera",
# "Sophora",
# "Tamarix",
# "Cornus",
# "Larix"
# ),
# cadesccon = c(
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# "Planifoli", 'Conífera'
# )
# )
# ),
#
# esp = list(
# scenario1 = list(
# especie = c(
# Cualquiera = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Quercus humilis/cerroides",
# "Sorbus aria",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Tilia",
# "Acer opalus",
# "Pinus nigra",
# "Alnus glutinosa",
# "Salix",
# "Robinia pseudacacia",
# "Corylus avellana",
# "Quercus petraea",
# "Pinus halepensis",
# "Quercus faginea",
# "Salix atrocinerea",
# "Acer campestre",
# "Crataegus monogyna",
# "Pinus pinea",
# "Tilia platyphyllos",
# "Prunus avium",
# "Juniperus communis",
# "Acer monspessulanum",
# "Fraxinus excelsior",
# "Arbutus unedo",
# "Populus nigra",
# "Tilia cordata",
# "Juniperus oxycedrus",
# "Populus tremula",
# "Pinus radiata",
# "Pseudotsuga menziesii",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber",
# "Sambucus nigra",
# "Platanus hispanica",
# "Quercus canariensis",
# "Ilex aquifolium",
# "Ulmus minor",
# "Populus alba",
# "Celtis australis",
# "Olea europaea",
# "Rhamnus alaternus",
# "Ceratonia siliqua",
# "Prunus",
# "Laurus nobilis",
# "Salix alba",
# "Betula pendula",
# "Fraxinus angustifolia",
# "Eucalyptus camaldulensis",
# "Cupressus arizonica",
# "Quercus robur",
# "Populus x canadensis",
# "Picea abies",
# "Pyrus",
# "Phillyrea latifolia",
# "Buxus sempervirens",
# "Pyrus malus",
# "Taxus baccata",
# "Eucalyptus globulus",
# "Juglans regia",
# "Sorbus aucuparia",
# "Cedrus atlantica",
# "Sorbus",
# "Salix elaeagnos",
# "Ficus carica",
# "Cedrus libani",
# "Betula",
# "Salix caprea",
# "Acer platanoides",
# "Betula pubescens",
# "Larix decidua",
# "Crataegus",
# "Juniperus phoenicea",
# "Quercus pyrenaica",
# "Pistacia terebinthus",
# "Juglans nigra",
# "Cupressus sempervirens",
# "Salix fragilis",
# "Quercus pyrenaica/pubescens",
# "Acer",
# "Juniperus communis/oxycedrus",
# "Altres planifolis",
# "Fraxinus",
# "Ulmus",
# "Populus nigra/x canadensis",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Cupressus",
# "Platanus",
# "Coníferes excepte pins",
# "Arbres de ribera"
# ),
# especiesimp = c(
# Cualquiera = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Roures",
# "Altres planifolis",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinea",
# "Altres coníferes",
# "Pinus radiata",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber"
# ),
# genere = c(
# Cualquiera = '',
# "Pinus",
# "Quercus",
# "Sorbus",
# "Fagus",
# "Abies",
# "Tilia",
# "Acer",
# "Alnus",
# "Salix",
# "Robinia",
# "Corylus",
# "Crataegus",
# "Prunus",
# "Juniperus",
# "Fraxinus",
# "Arbutus",
# "Populus",
# "Pseudotsuga",
# "Castanea",
# "Sambucus",
# "Platanus",
# "Ilex",
# "Ulmus",
# "Celtis",
# "Olea",
# "Rhamnus",
# "Ceratonia",
# "Laurus",
# "Betula",
# "Eucalyptus",
# "Cupressus",
# "Picea",
# "Pyrus",
# "Phillyrea",
# "Buxus",
# "Taxus",
# "Juglans",
# "Cedrus",
# "Ficus",
# "Larix",
# "Pistacia",
# "Planifoli",
# "Conífera"
# ),
# cadesccon = c(
# Cualquiera = '',
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# Cualquiera = '',
# "Planifoli", 'Conífera'
# )
# ),
# scenario2 = list(
# especie = c(
# "Abies alba",
# "Abies pinsapo",
# "Acacia dealbata",
# "Acer",
# "Acer campestre",
# "Acer monspessulanum",
# "Acer negundo",
# "Acer opalus",
# "Acer platanoides",
# "Acer pseudoplatanus",
# "Ailanthus altissima",
# "Alnus glutinosa",
# "Altres espècies ripícoles",
# "Altres pins",
# "Altres planifolis",
# "Arbres de ribera",
# "Arbutus unedo",
# "Betula",
# "Betula pendula",
# "Betula pubescens",
# "Buxus sempervirens",
# "Castanea sativa",
# "Cedrus atlantica",
# "Cedrus deodara",
# "Cedrus libani",
# "Celtis australis",
# "Ceratonia siliqua",
# "Coníferes excepte pins",
# "Cornus sanguinea",
# "Corylus avellana",
# "Crataegus",
# "Crataegus monogyna",
# "Cupressus",
# "Cupressus arizonica",
# "Cupressus lusitanica",
# "Cupressus sempervirens",
# "Eucalyptus camaldulensis",
# "Eucalyptus globulus",
# "Fagus sylvatica",
# "Ficus carica",
# "Fraxinus",
# "Fraxinus angustifolia",
# "Fraxinus excelsior",
# "Fraxinus ornus",
# "Ilex aquifolium",
# "Juglans nigra",
# "Juglans regia",
# "Juniperus communis",
# "Juniperus communis/oxycedrus",
# "Juniperus oxycedrus",
# "Juniperus phoenicea",
# "Juniperus thurifera",
# "Larix decidua",
# "Laurus nobilis",
# "Morus alba",
# "Olea europaea",
# "Phillyrea latifolia",
# "Phoenix",
# "Picea abies",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinaster",
# "Pinus pinea",
# "Pinus radiata",
# "Pinus sylvestris",
# "Pinus uncinata",
# "Pistacia terebinthus",
# "Platanus",
# "Platanus hispanica",
# "Populus alba",
# "Populus nigra",
# "Populus nigra/x canadensis",
# "Populus tremula",
# "Populus x canadensis",
# "Prunus",
# "Prunus avium",
# "Prunus lusitanica",
# "Prunus spinosa",
# "Pseudotsuga menziesii",
# "Pyrus",
# "Pyrus malus",
# "Quercus canariensis",
# "Quercus faginea",
# "Quercus humilis/cerroides",
# "Quercus ilex",
# "Quercus petraea",
# "Quercus pyrenaica",
# "Quercus pyrenaica/pubescens",
# "Quercus robur",
# "Quercus suber",
# "Rhamnus alaternus",
# "Robinia pseudacacia",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Salix",
# "Salix alba",
# "Salix atrocinerea",
# "Salix babylonica",
# "Salix caprea",
# "Salix elaeagnos",
# "Salix fragilis",
# "Sambucus nigra",
# "Sambucus racemosa",
# "Sophora japonica",
# "Sorbus",
# "Sorbus aria",
# "Sorbus aucuparia",
# "Sorbus domestica",
# "Sorbus torminalis",
# "Tamarix",
# "Taxus baccata",
# "Tilia",
# "Tilia cordata",
# "Tilia platyphyllos",
# "Ulmus",
# "Ulmus glabra",
# "Ulmus minor",
# "Ulmus pumila"
# ),
# especiesimp = c(
# "Pinus sylvestris",
# "Pinus uncinata",
# "Altres planifolis",
# "Roures",
# "Fagus sylvatica",
# "Quercus ilex",
# "Abies alba",
# "Altres coníferes",
# "Pinus nigra",
# "Pinus halepensis",
# "Pinus pinea",
# "Pinus pinaster",
# "Castanea sativa",
# "Pinus radiata",
# "Quercus suber",
# "Cornus sanguinea"
# ),
# genere = c(
# "Pinus",
# "Acer",
# "Salix",
# "Quercus",
# "Fagus",
# "Sorbus",
# "Ilex",
# "Abies",
# "Olea",
# "Crataegus",
# "Juniperus",
# "Tilia",
# "Corylus",
# "Fraxinus",
# "Alnus",
# "Populus",
# "Prunus",
# "Robinia",
# "Sambucus",
# "Pyrus",
# "Ulmus",
# "Phillyrea",
# "Planifoli",
# "Betula",
# "Platanus",
# "Buxus",
# "Picea",
# "Arbutus",
# "Castanea",
# "Pseudotsuga",
# "Juglans",
# "Cedrus",
# "Cupressus",
# "Eucalyptus",
# "Morus",
# "Phoenix",
# "Celtis",
# "Rhamnus",
# "Laurus",
# "Ficus",
# "Ceratonia",
# "Acacia",
# "Taxus",
# "Ailanthus",
# "Pistacia",
# "Conífera",
# "Sophora",
# "Tamarix",
# "Cornus",
# "Larix"
# ),
# cadesccon = c(
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# "Planifoli", 'Conífera'
# )
# )
# ),
#
# eng = list(
# scenario1 = list(
# especie = c(
# Any = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Quercus humilis/cerroides",
# "Sorbus aria",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Tilia",
# "Acer opalus",
# "Pinus nigra",
# "Alnus glutinosa",
# "Salix",
# "Robinia pseudacacia",
# "Corylus avellana",
# "Quercus petraea",
# "Pinus halepensis",
# "Quercus faginea",
# "Salix atrocinerea",
# "Acer campestre",
# "Crataegus monogyna",
# "Pinus pinea",
# "Tilia platyphyllos",
# "Prunus avium",
# "Juniperus communis",
# "Acer monspessulanum",
# "Fraxinus excelsior",
# "Arbutus unedo",
# "Populus nigra",
# "Tilia cordata",
# "Juniperus oxycedrus",
# "Populus tremula",
# "Pinus radiata",
# "Pseudotsuga menziesii",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber",
# "Sambucus nigra",
# "Platanus hispanica",
# "Quercus canariensis",
# "Ilex aquifolium",
# "Ulmus minor",
# "Populus alba",
# "Celtis australis",
# "Olea europaea",
# "Rhamnus alaternus",
# "Ceratonia siliqua",
# "Prunus",
# "Laurus nobilis",
# "Salix alba",
# "Betula pendula",
# "Fraxinus angustifolia",
# "Eucalyptus camaldulensis",
# "Cupressus arizonica",
# "Quercus robur",
# "Populus x canadensis",
# "Picea abies",
# "Pyrus",
# "Phillyrea latifolia",
# "Buxus sempervirens",
# "Pyrus malus",
# "Taxus baccata",
# "Eucalyptus globulus",
# "Juglans regia",
# "Sorbus aucuparia",
# "Cedrus atlantica",
# "Sorbus",
# "Salix elaeagnos",
# "Ficus carica",
# "Cedrus libani",
# "Betula",
# "Salix caprea",
# "Acer platanoides",
# "Betula pubescens",
# "Larix decidua",
# "Crataegus",
# "Juniperus phoenicea",
# "Quercus pyrenaica",
# "Pistacia terebinthus",
# "Juglans nigra",
# "Cupressus sempervirens",
# "Salix fragilis",
# "Quercus pyrenaica/pubescens",
# "Acer",
# "Juniperus communis/oxycedrus",
# "Altres planifolis",
# "Fraxinus",
# "Ulmus",
# "Populus nigra/x canadensis",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Cupressus",
# "Platanus",
# "Coníferes excepte pins",
# "Arbres de ribera"
# ),
# especiesimp = c(
# Any = '',
# "Pinus uncinata",
# "Pinus sylvestris",
# "Roures",
# "Altres planifolis",
# "Quercus ilex",
# "Fagus sylvatica",
# "Abies alba",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinea",
# "Altres coníferes",
# "Pinus radiata",
# "Castanea sativa",
# "Pinus pinaster",
# "Quercus suber"
# ),
# genere = c(
# Any = '',
# "Pinus",
# "Quercus",
# "Sorbus",
# "Fagus",
# "Abies",
# "Tilia",
# "Acer",
# "Alnus",
# "Salix",
# "Robinia",
# "Corylus",
# "Crataegus",
# "Prunus",
# "Juniperus",
# "Fraxinus",
# "Arbutus",
# "Populus",
# "Pseudotsuga",
# "Castanea",
# "Sambucus",
# "Platanus",
# "Ilex",
# "Ulmus",
# "Celtis",
# "Olea",
# "Rhamnus",
# "Ceratonia",
# "Laurus",
# "Betula",
# "Eucalyptus",
# "Cupressus",
# "Picea",
# "Pyrus",
# "Phillyrea",
# "Buxus",
# "Taxus",
# "Juglans",
# "Cedrus",
# "Ficus",
# "Larix",
# "Pistacia",
# "Planifoli",
# "Conífera"
# ),
# cadesccon = c(
# Any = '',
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# Any = '',
# "Planifoli", 'Conífera'
# )
# ),
# scenario2 = list(
# especie = c(
# "Abies alba",
# "Abies pinsapo",
# "Acacia dealbata",
# "Acer",
# "Acer campestre",
# "Acer monspessulanum",
# "Acer negundo",
# "Acer opalus",
# "Acer platanoides",
# "Acer pseudoplatanus",
# "Ailanthus altissima",
# "Alnus glutinosa",
# "Altres espècies ripícoles",
# "Altres pins",
# "Altres planifolis",
# "Arbres de ribera",
# "Arbutus unedo",
# "Betula",
# "Betula pendula",
# "Betula pubescens",
# "Buxus sempervirens",
# "Castanea sativa",
# "Cedrus atlantica",
# "Cedrus deodara",
# "Cedrus libani",
# "Celtis australis",
# "Ceratonia siliqua",
# "Coníferes excepte pins",
# "Cornus sanguinea",
# "Corylus avellana",
# "Crataegus",
# "Crataegus monogyna",
# "Cupressus",
# "Cupressus arizonica",
# "Cupressus lusitanica",
# "Cupressus sempervirens",
# "Eucalyptus camaldulensis",
# "Eucalyptus globulus",
# "Fagus sylvatica",
# "Ficus carica",
# "Fraxinus",
# "Fraxinus angustifolia",
# "Fraxinus excelsior",
# "Fraxinus ornus",
# "Ilex aquifolium",
# "Juglans nigra",
# "Juglans regia",
# "Juniperus communis",
# "Juniperus communis/oxycedrus",
# "Juniperus oxycedrus",
# "Juniperus phoenicea",
# "Juniperus thurifera",
# "Larix decidua",
# "Laurus nobilis",
# "Morus alba",
# "Olea europaea",
# "Phillyrea latifolia",
# "Phoenix",
# "Picea abies",
# "Pinus halepensis",
# "Pinus nigra",
# "Pinus pinaster",
# "Pinus pinea",
# "Pinus radiata",
# "Pinus sylvestris",
# "Pinus uncinata",
# "Pistacia terebinthus",
# "Platanus",
# "Platanus hispanica",
# "Populus alba",
# "Populus nigra",
# "Populus nigra/x canadensis",
# "Populus tremula",
# "Populus x canadensis",
# "Prunus",
# "Prunus avium",
# "Prunus lusitanica",
# "Prunus spinosa",
# "Pseudotsuga menziesii",
# "Pyrus",
# "Pyrus malus",
# "Quercus canariensis",
# "Quercus faginea",
# "Quercus humilis/cerroides",
# "Quercus ilex",
# "Quercus petraea",
# "Quercus pyrenaica",
# "Quercus pyrenaica/pubescens",
# "Quercus robur",
# "Quercus suber",
# "Rhamnus alaternus",
# "Robinia pseudacacia",
# "Robinia pseudacacia/Sophora japonica/Gleditsia",
# "Salix",
# "Salix alba",
# "Salix atrocinerea",
# "Salix babylonica",
# "Salix caprea",
# "Salix elaeagnos",
# "Salix fragilis",
# "Sambucus nigra",
# "Sambucus racemosa",
# "Sophora japonica",
# "Sorbus",
# "Sorbus aria",
# "Sorbus aucuparia",
# "Sorbus domestica",
# "Sorbus torminalis",
# "Tamarix",
# "Taxus baccata",
# "Tilia",
# "Tilia cordata",
# "Tilia platyphyllos",
# "Ulmus",
# "Ulmus glabra",
# "Ulmus minor",
# "Ulmus pumila"
# ),
# especiesimp = c(
# "Pinus sylvestris",
# "Pinus uncinata",
# "Altres planifolis",
# "Roures",
# "Fagus sylvatica",
# "Quercus ilex",
# "Abies alba",
# "Altres coníferes",
# "Pinus nigra",
# "Pinus halepensis",
# "Pinus pinea",
# "Pinus pinaster",
# "Castanea sativa",
# "Pinus radiata",
# "Quercus suber",
# "Cornus sanguinea"
# ),
# genere = c(
# "Pinus",
# "Acer",
# "Salix",
# "Quercus",
# "Fagus",
# "Sorbus",
# "Ilex",
# "Abies",
# "Olea",
# "Crataegus",
# "Juniperus",
# "Tilia",
# "Corylus",
# "Fraxinus",
# "Alnus",
# "Populus",
# "Prunus",
# "Robinia",
# "Sambucus",
# "Pyrus",
# "Ulmus",
# "Phillyrea",
# "Planifoli",
# "Betula",
# "Platanus",
# "Buxus",
# "Picea",
# "Arbutus",
# "Castanea",
# "Pseudotsuga",
# "Juglans",
# "Cedrus",
# "Cupressus",
# "Eucalyptus",
# "Morus",
# "Phoenix",
# "Celtis",
# "Rhamnus",
# "Laurus",
# "Ficus",
# "Ceratonia",
# "Acacia",
# "Taxus",
# "Ailanthus",
# "Pistacia",
# "Conífera",
# "Sophora",
# "Tamarix",
# "Cornus",
# "Larix"
# ),
# cadesccon = c(
# "Conífera", "Caducifoli", "Esclerofil·le"
# ),
# planifconif = c(
# "Planifoli", 'Conífera'
# )
# )
# )
# )
#
# dic_grup_func_choices$cat$scenario3 <- dic_grup_func_choices$cat$scenario1
# dic_grup_func_choices$esp$scenario3 <- dic_grup_func_choices$esp$scenario1
# dic_grup_func_choices$eng$scenario3 <- dic_grup_func_choices$eng$scenario1
# dic_grup_func_choices$cat$scenario4 <- dic_grup_func_choices$cat$scenario2
# dic_grup_func_choices$esp$scenario4 <- dic_grup_func_choices$esp$scenario2
# dic_grup_func_choices$eng$scenario4 <- dic_grup_func_choices$eng$scenario2
#
# # Statistic input
# dic_statistic_choices <- list(
# cat = list(
# 'Mitjana' = '_mean',
# 'Mediana' = '_median',
# 'Desviació estàndard' = '_sd',
# 'Mìnim' = '_min',
# 'Màxim' = '_max',
# 'Nombre parcel·les' = '_n',
# 'Quartil 95' = '_q95'
# ),
# esp = list(
# 'Media' = '_mean',
# 'Mediana' = '_median',
# 'Desviación estandar' = '_sd',
# 'Mínimo' = '_min',
# 'Máximo' = '_max',
# 'Número parcelas' = '_n',
# 'Cuartil 95' = '_q95'
# ),
# cat = list(
# 'Mean' = '_mean',
# 'Median' = '_median',
# 'Standard deviation' = '_sd',
# 'Min' = '_min',
# 'Max' = '_max',
# 'Number of plots' = '_n',
# 'Quantile 95' = '_q95'
# )
# )
#
# ## mod_infopanels inputs ####
#
#
# ## mod_table inputs ####
#
# # foo <- tidyIFN::ifn_connect('malditobarbudo')
# # bar_1 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'parcela', TRUE)
# # vars_1 <- names(bar_1$core %>% dplyr::collect())
# # bar_2 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'genere', TRUE)
# # vars_2 <- names(bar_2$core %>% dplyr::collect())
# # bar_3 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'parcela', TRUE)[['core']] %>%
# # dplyr::collect() %>%
# # tidyIFN::summarise_polygons(polygon_group = 'comarca', cd = TRUE)
# # vars_3 <- names(bar_3)
# # bar_4 <- data_scenario('comarca', NULL, 'proteccio', NULL, 'ifn3', foo, 'genere', TRUE)[['core']] %>%
# # dplyr::collect() %>%
# # tidyIFN::summarise_polygons(polygon_group = 'comarca', func_group = 'idgenere', cd = TRUE)
# # vars_4 <- names(bar_4)
#
#
# dic_col_vis_input <- list(
# esp = list(
# nocd = list(
# scenario1 = c(
# "ID parcela" = "idparcela",
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "Caducifolia/Esclerofila/Conifera dominante por densidad" = "cadesccon_dom_percdens",
# "Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val",
# "Caducifolia/Esclerofila/Conifera dominante por área basal" = "cadesccon_dom_percab",
# "Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val",
# "Planifolia/Conifera dominante por densidad" = "planifconif_dom_percdens",
# "Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val",
# "Planifolia/Conifera dominante por área basal" = "planifconif_dom_percab",
# "Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val",
# "Género dominante por densidad" = "genere_dom_percdens",
# "Porcentaje Densidad Género dominante" = "genere_dom_percdens_val",
# "Género dominante por área basal" = "genere_dom_percab",
# "Porcentaje Área Basal Género dominante" = "genere_dom_percab_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percdens",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val",
# "Especie simplificado dominante por densidad" = "especiesimp_dom_percab",
# "Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percab_val",
# "Especie dominante por densidad" = "especie_dom_percdens",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val",
# "Especie dominante por densidad" = "especie_dom_percab",
# "Porcentaje Densidad Especie dominante" = "especie_dom_percab_val",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "Diámetro a la altura del pecho parcela" = "dbh",
# "Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
#
# scenario2 = c(
# "ID parcela" = "idparcela",
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# 'Orden por densidad' = "ordredens",
# 'Orden por área basal' = "ordreab",
# 'Porcentaje densidad' = "percdens",
# 'Porcentaje área basal' = "percab",
# 'Densidad' = "densitat",
# 'Denstidad pies muertos' = "densitatmorts",
# 'Área Basal' = "ab",
# 'Área Basal pies muertos' = "abmorts",
# "Diámetro a la altura del pecho" = "dbh",
# "Diámetro a la altura del pecho pies muertos" = "dbhmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
#
# scenario3 = c(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "Media del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_mean",
# "Media del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_mean",
# "Media del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_mean",
# "Media del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_mean",
# "Media del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_mean",
# "Media del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_mean",
# "Media del Densidad total parcela" = "densitat_mean",
# "Media del Densidad total pies muertos parcela" = "densitatmorts_mean",
# "Media del Área Basal total parcela" = "ab_mean",
# "Media del Área Basal total pies muertos parcela" = "abmorts_mean",
# "Media del Diámetro a la altura del pecho parcela" = "dbh_mean",
# "Media del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# "Desviación estándar del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_sd",
# "Desviación estándar del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_sd",
# "Desviación estándar del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_sd",
# "Desviación estándar del Densidad total parcela" = "densitat_sd",
# "Desviación estándar del Densidad total pies muertos parcela" = "densitatmorts_sd",
# "Desviación estándar del Área Basal total parcela" = "ab_sd",
# "Desviación estándar del Área Basal total pies muertos parcela" = "abmorts_sd",
# "Desviación estándar del Diámetro a la altura del pecho parcela" = "dbh_sd",
# "Desviación estándar del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# "Mínimo del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_min",
# "Mínimo del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_min",
# "Mínimo del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_min",
# "Mínimo del Densidad total parcela" = "densitat_min",
# "Mínimo del Densidad total pies muertos parcela" = "densitatmorts_min",
# "Mínimo del Área Basal total parcela" = "ab_min",
# "Mínimo del Área Basal total pies muertos parcela" = "abmorts_min",
# "Mínimo del Diámetro a la altura del pecho parcela" = "dbh_min",
# "Mínimo del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# "Máximo del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_max",
# "Máximo del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_max",
# "Máximo del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_max",
# "Máximo del Densidad total parcela" = "densitat_max",
# "Máximo del Densidad total pies muertos parcela" = "densitatmorts_max",
# "Máximo del Área Basal total parcela" = "ab_max",
# "Máximo del Área Basal total pies muertos parcela" = "abmorts_max",
# "Máximo del Diámetro a la altura del pecho parcela" = "dbh_max",
# "Máximo del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# "Mediana del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_median",
# "Mediana del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_median",
# "Mediana del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_median",
# "Mediana del Densidad total parcela" = "densitat_median",
# "Mediana del Densidad total pies muertos parcela" = "densitatmorts_median",
# "Mediana del Área Basal total parcela" = "ab_median",
# "Mediana del Área Basal total pies muertos parcela" = "abmorts_median",
# "Mediana del Diámetro a la altura del pecho parcela" = "dbh_median",
# "Mediana del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# "Cuartil 95 del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_q95",
# "Cuartil 95 del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_q95",
# "Cuartil 95 del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_q95",
# "Cuartil 95 del Densidad total parcela" = "densitat_q95",
# "Cuartil 95 del Densidad total pies muertos parcela" = "densitatmorts_q95",
# "Cuartil 95 del Área Basal total parcela" = "ab_q95",
# "Cuartil 95 del Área Basal total pies muertos parcela" = "abmorts_q95",
# "Cuartil 95 del Diámetro a la altura del pecho parcela" = "dbh_q95",
# "Cuartil 95 del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# "N del Porcentaje Densidad Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percdens_val_n",
# "N del Porcentaje Área Basal Caducifolia/Esclerofila/Conifera dominante" = "cadesccon_dom_percab_val_n",
# "N del Porcentaje Densidad Planifolia/Conifera dominante" = "planifconif_dom_percdens_val_n",
# "N del Porcentaje Área Basal Planifolia/Conifera dominante" = "planifconif_dom_percab_val_n",
# "N del Porcentaje Densidad Género dominante" = "genere_dom_percdens_val_n",
# "N del Porcentaje Área Basal Género dominante" = "genere_dom_percab_val_n",
# "N del Porcentaje Densidad Especie simplificado dominante" = "especiesimp_dom_percdens_val_n",
# "N del Porcentaje Área Basal Especie simplificado dominante" = "especiesimp_dom_percab_val_n",
# "N del Porcentaje Densidad Especie dominante" = "especie_dom_percdens_val_n",
# "N del Porcentaje Área Basal Especie dominante" = "especie_dom_percab_val_n",
# "N del Densidad total parcela" = "densitat_n",
# "N del Densidad total pies muertos parcela" = "densitatmorts_n",
# "N del Área Basal total parcela" = "ab_n",
# "N del Área Basal total pies muertos parcela" = "abmorts_n",
# "N del Diámetro a la altura del pecho parcela" = "dbh_n",
# "N del Diámetro a la altura del pecho pies muertos parcela" = "dbhmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# ),
#
# scenario4 = c(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# 'Media del Orden por densidad' = "ordredens_mean",
# 'Media del Orden por área basal' = "ordreab_mean",
# 'Media del Porcentaje densidad' = "percdens_mean",
# 'Media del Porcentaje área basal' = "percab_mean",
# 'Media del Densidad' = "densitat_mean",
# 'Media del Denstidad pies muertos' = "densitatmorts_mean",
# 'Media del Área Basal' = "ab_mean",
# 'Media del Área Basal pies muertos' = "abmorts_mean",
# "Media del Diámetro a la altura del pecho" = "dbh_mean",
# "Media del Diámetro a la altura del pecho pies muertos" = "dbhmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# 'Desviación estándar del Orden por densidad' = "ordredens_sd",
# 'Desviación estándar del Orden por área basal' = "ordreab_sd",
# 'Desviación estándar del Porcentaje densidad' = "percdens_sd",
# 'Desviación estándar del Porcentaje área basal' = "percab_sd",
# 'Desviación estándar del Densidad' = "densitat_sd",
# 'Desviación estándar del Denstidad pies muertos' = "densitatmorts_sd",
# 'Desviación estándar del Área Basal' = "ab_sd",
# 'Desviación estándar del Área Basal pies muertos' = "abmorts_sd",
# "Desviación estándar del Diámetro a la altura del pecho" = "dbh_sd",
# "Desviación estándar del Diámetro a la altura del pecho pies muertos" = "dbhmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# 'Mínimo del Orden por densidad' = "ordredens_min",
# 'Mínimo del Orden por área basal' = "ordreab_min",
# 'Mínimo del Porcentaje densidad' = "percdens_min",
# 'Mínimo del Porcentaje área basal' = "percab_min",
# 'Mínimo del Densidad' = "densitat_min",
# 'Mínimo del Denstidad pies muertos' = "densitatmorts_min",
# 'Mínimo del Área Basal' = "ab_min",
# 'Mínimo del Área Basal pies muertos' = "abmorts_min",
# "Mínimo del Diámetro a la altura del pecho" = "dbh_min",
# "Mínimo del Diámetro a la altura del pecho pies muertos" = "dbhmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# 'Máximo del Orden por densidad' = "ordredens_max",
# 'Máximo del Orden por área basal' = "ordreab_max",
# 'Máximo del Porcentaje densidad' = "percdens_max",
# 'Máximo del Porcentaje área basal' = "percab_max",
# 'Máximo del Densidad' = "densitat_max",
# 'Máximo del Denstidad pies muertos' = "densitatmorts_max",
# 'Máximo del Área Basal' = "ab_max",
# 'Máximo del Área Basal pies muertos' = "abmorts_max",
# "Máximo del Diámetro a la altura del pecho" = "dbh_max",
# "Máximo del Diámetro a la altura del pecho pies muertos" = "dbhmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# 'Mediana del Orden por densidad' = "ordredens_median",
# 'Mediana del Orden por área basal' = "ordreab_median",
# 'Mediana del Porcentaje densidad' = "percdens_median",
# 'Mediana del Porcentaje área basal' = "percab_median",
# 'Mediana del Densidad' = "densitat_median",
# 'Mediana del Denstidad pies muertos' = "densitatmorts_median",
# 'Mediana del Área Basal' = "ab_median",
# 'Mediana del Área Basal pies muertos' = "abmorts_median",
# "Mediana del Diámetro a la altura del pecho" = "dbh_median",
# "Mediana del Diámetro a la altura del pecho pies muertos" = "dbhmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# 'Cuartil 95 del Orden por densidad' = "ordredens_q95",
# 'Cuartil 95 del Orden por área basal' = "ordreab_q95",
# 'Cuartil 95 del Porcentaje densidad' = "percdens_q95",
# 'Cuartil 95 del Porcentaje área basal' = "percab_q95",
# 'Cuartil 95 del Densidad' = "densitat_q95",
# 'Cuartil 95 del Denstidad pies muertos' = "densitatmorts_q95",
# 'Cuartil 95 del Área Basal' = "ab_q95",
# 'Cuartil 95 del Área Basal pies muertos' = "abmorts_q95",
# "Cuartil 95 del Diámetro a la altura del pecho" = "dbh_q95",
# "Cuartil 95 del Diámetro a la altura del pecho pies muertos" = "dbhmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# 'N del Orden por densidad' = "ordredens_n",
# 'N del Orden por área basal' = "ordreab_n",
# 'N del Porcentaje densidad' = "percdens_n",
# 'N del Porcentaje área basal' = "percab_n",
# 'N del Densidad' = "densitat_n",
# 'N del Denstidad pies muertos' = "densitatmorts_n",
# 'N del Área Basal' = "ab_n",
# 'N del Área Basal pies muertos' = "abmorts_n",
# "N del Diámetro a la altura del pecho" = "dbh_n",
# "N del Diámetro a la altura del pecho pies muertos" = "dbhmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# )
# ),
# cd = list(
# scenario1 = list(
# "ID parcela" = 'idparcela',
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "ID clase diamétrica" = "idcd",
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
# scenario2 = list(
# "ID parcela" = "idparcela",
# "Provincia" = 'provincia',
# 'Vegeueria' = 'vegueria',
# 'Comarca' = 'comarca',
# 'Municipio' = 'municipi',
# "ID clase" = "idclasse",
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# "ID clase diamétrica" = 'idcd',
# "Densidad total parcela" = "densitat",
# "Densidad total pies muertos parcela" = "densitatmorts",
# "Área Basal total parcela" = "ab",
# "Área Basal total pies muertos parcela" = "abmorts",
# "rc" = "rc",
# "vcc" = "vcc",
# "vccmorts" = "vccmorts",
# "vsc" = "vsc",
# "vscmorts" = "vscmorts",
# "iavc" = "iavc",
# "iavc_creaf" = "iavc_creaf",
# "vle" = "vle",
# "bm" = "bm",
# "bc" = "bc",
# "br" = "br",
# "bh" = "bh",
# "bat" = "bat",
# "iaf" = "iaf",
# "ph" = "ph",
# "cm" = "cm",
# "cc" = "cc",
# "cr" = "cr",
# "ch" = "ch",
# "cat" = "cat",
# "cca" = "cca"
# ),
# scenario3 = list(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "ID clase diamétrica" = 'idcd',
# "Media del Densidad total parcela" = "densitat_mean",
# "Media del Densidad total pies muertos parcela" = "densitatmorts_mean",
# "Media del Área Basal total parcela" = "ab_mean",
# "Media del Área Basal total pies muertos parcela" = "abmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# "Desviación estándar del Densidad total parcela" = "densitat_sd",
# "Desviación estándar del Densidad total pies muertos parcela" = "densitatmorts_sd",
# "Desviación estándar del Área Basal total parcela" = "ab_sd",
# "Desviación estándar del Área Basal total pies muertos parcela" = "abmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# "Mínimo del Densidad total parcela" = "densitat_min",
# "Mínimo del Densidad total pies muertos parcela" = "densitatmorts_min",
# "Mínimo del Área Basal total parcela" = "ab_min",
# "Mínimo del Área Basal total pies muertos parcela" = "abmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# "Máximo del Densidad total parcela" = "densitat_max",
# "Máximo del Densidad total pies muertos parcela" = "densitatmorts_max",
# "Máximo del Área Basal total parcela" = "ab_max",
# "Máximo del Área Basal total pies muertos parcela" = "abmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# "Mediana del Densidad total parcela" = "densitat_median",
# "Mediana del Densidad total pies muertos parcela" = "densitatmorts_median",
# "Mediana del Área Basal total parcela" = "ab_median",
# "Mediana del Área Basal total pies muertos parcela" = "abmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# "Cuartil 95 del Densidad total parcela" = "densitat_q95",
# "Cuartil 95 del Densidad total pies muertos parcela" = "densitatmorts_q95",
# "Cuartil 95 del Área Basal total parcela" = "ab_q95",
# "Cuartil 95 del Área Basal total pies muertos parcela" = "abmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# "N del Densidad total parcela" = "densitat_n",
# "N del Densidad total pies muertos parcela" = "densitatmorts_n",
# "N del Área Basal total parcela" = "ab_n",
# "N del Área Basal total pies muertos parcela" = "abmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# ),
# scenario4 = list(
# "Provincia" = 'provincia',
# "Vegueria" = 'vegueria',
# "Comarca" = 'comarca',
# "Municipio" = 'municipi',
# "Especie" = "idespecie",
# "Especie simplificado" = "idespeciesimp",
# "Genero" = "idgenere",
# 'Caducifolia/Esclerófila/Conífera' = 'idcadesccon',
# 'Planifolia/Conífera' = 'idplanifconif',
# "ID clase diamétrica" = 'idcd',
# "Media del Densidad total parcela" = "densitat_mean",
# "Media del Densidad total pies muertos parcela" = "densitatmorts_mean",
# "Media del Área Basal total parcela" = "ab_mean",
# "Media del Área Basal total pies muertos parcela" = "abmorts_mean",
# "Media del rc" = "rc_mean",
# "Media del vcc" = "vcc_mean",
# "Media del vccmorts" = "vccmorts_mean",
# "Media del vsc" = "vsc_mean",
# "Media del vscmorts" = "vscmorts_mean",
# "Media del iavc" = "iavc_mean",
# "Media del iavc_creaf" = "iavc_creaf_mean",
# "Media del vle" = "vle_mean",
# "Media del bm" = "bm_mean",
# "Media del bc" = "bc_mean",
# "Media del br" = "br_mean",
# "Media del bh" = "bh_mean",
# "Media del bat" = "bat_mean",
# "Media del iaf" = "iaf_mean",
# "Media del ph" = "ph_mean",
# "Media del cm" = "cm_mean",
# "Media del cc" = "cc_mean",
# "Media del cr" = "cr_mean",
# "Media del ch" = "ch_mean",
# "Media del cat" = "cat_mean",
# "Media del cca" = "cca_mean",
# "Desviación estándar del Densidad total parcela" = "densitat_sd",
# "Desviación estándar del Densidad total pies muertos parcela" = "densitatmorts_sd",
# "Desviación estándar del Área Basal total parcela" = "ab_sd",
# "Desviación estándar del Área Basal total pies muertos parcela" = "abmorts_sd",
# "Desviación estándar del rc" = "rc_sd",
# "Desviación estándar del vcc" = "vcc_sd",
# "Desviación estándar del vccmorts" = "vccmorts_sd",
# "Desviación estándar del vsc" = "vsc_sd",
# "Desviación estándar del vscmorts" = "vscmorts_sd",
# "Desviación estándar del iavc" = "iavc_sd",
# "Desviación estándar del iavc_creaf" = "iavc_creaf_sd",
# "Desviación estándar del vle" = "vle_sd",
# "Desviación estándar del bm" = "bm_sd",
# "Desviación estándar del bc" = "bc_sd",
# "Desviación estándar del br" = "br_sd",
# "Desviación estándar del bh" = "bh_sd",
# "Desviación estándar del bat" = "bat_sd",
# "Desviación estándar del iaf" = "iaf_sd",
# "Desviación estándar del ph" = "ph_sd",
# "Desviación estándar del cm" = "cm_sd",
# "Desviación estándar del cc" = "cc_sd",
# "Desviación estándar del cr" = "cr_sd",
# "Desviación estándar del ch" = "ch_sd",
# "Desviación estándar del cat" = "cat_sd",
# "Desviación estándar del cca" = "cca_sd",
# "Mínimo del Densidad total parcela" = "densitat_min",
# "Mínimo del Densidad total pies muertos parcela" = "densitatmorts_min",
# "Mínimo del Área Basal total parcela" = "ab_min",
# "Mínimo del Área Basal total pies muertos parcela" = "abmorts_min",
# "Mínimo del rc" = "rc_min",
# "Mínimo del vcc" = "vcc_min",
# "Mínimo del vccmorts" = "vccmorts_min",
# "Mínimo del vsc" = "vsc_min",
# "Mínimo del vscmorts" = "vscmorts_min",
# "Mínimo del iavc" = "iavc_min",
# "Mínimo del iavc_creaf" = "iavc_creaf_min",
# "Mínimo del vle" = "vle_min",
# "Mínimo del bm" = "bm_min",
# "Mínimo del bc" = "bc_min",
# "Mínimo del br" = "br_min",
# "Mínimo del bh" = "bh_min",
# "Mínimo del bat" = "bat_min",
# "Mínimo del iaf" = "iaf_min",
# "Mínimo del ph" = "ph_min",
# "Mínimo del cm" = "cm_min",
# "Mínimo del cc" = "cc_min",
# "Mínimo del cr" = "cr_min",
# "Mínimo del ch" = "ch_min",
# "Mínimo del cat" = "cat_min",
# "Mínimo del cca" = "cca_min",
# "Máximo del Densidad total parcela" = "densitat_max",
# "Máximo del Densidad total pies muertos parcela" = "densitatmorts_max",
# "Máximo del Área Basal total parcela" = "ab_max",
# "Máximo del Área Basal total pies muertos parcela" = "abmorts_max",
# "Máximo del rc" = "rc_max",
# "Máximo del vcc" = "vcc_max",
# "Máximo del vccmorts" = "vccmorts_max",
# "Máximo del vsc" = "vsc_max",
# "Máximo del vscmorts" = "vscmorts_max",
# "Máximo del iavc" = "iavc_max",
# "Máximo del iavc_creaf" = "iavc_creaf_max",
# "Máximo del vle" = "vle_max",
# "Máximo del bm" = "bm_max",
# "Máximo del bc" = "bc_max",
# "Máximo del br" = "br_max",
# "Máximo del bh" = "bh_max",
# "Máximo del bat" = "bat_max",
# "Máximo del iaf" = "iaf_max",
# "Máximo del ph" = "ph_max",
# "Máximo del cm" = "cm_max",
# "Máximo del cc" = "cc_max",
# "Máximo del cr" = "cr_max",
# "Máximo del ch" = "ch_max",
# "Máximo del cat" = "cat_max",
# "Máximo del cca" = "cca_max",
# "Mediana del Densidad total parcela" = "densitat_median",
# "Mediana del Densidad total pies muertos parcela" = "densitatmorts_median",
# "Mediana del Área Basal total parcela" = "ab_median",
# "Mediana del Área Basal total pies muertos parcela" = "abmorts_median",
# "Mediana del rc" = "rc_median",
# "Mediana del vcc" = "vcc_median",
# "Mediana del vccmorts" = "vccmorts_median",
# "Mediana del vsc" = "vsc_median",
# "Mediana del vscmorts" = "vscmorts_median",
# "Mediana del iavc" = "iavc_median",
# "Mediana del iavc_creaf" = "iavc_creaf_median",
# "Mediana del vle" = "vle_median",
# "Mediana del bm" = "bm_median",
# "Mediana del bc" = "bc_median",
# "Mediana del br" = "br_median",
# "Mediana del bh" = "bh_median",
# "Mediana del bat" = "bat_median",
# "Mediana del iaf" = "iaf_median",
# "Mediana del ph" = "ph_median",
# "Mediana del cm" = "cm_median",
# "Mediana del cc" = "cc_median",
# "Mediana del cr" = "cr_median",
# "Mediana del ch" = "ch_median",
# "Mediana del cat" = "cat_median",
# "Mediana del cca" = "cca_median",
# "Cuartil 95 del Densidad total parcela" = "densitat_q95",
# "Cuartil 95 del Densidad total pies muertos parcela" = "densitatmorts_q95",
# "Cuartil 95 del Área Basal total parcela" = "ab_q95",
# "Cuartil 95 del Área Basal total pies muertos parcela" = "abmorts_q95",
# "Cuartil 95 del rc" = "rc_q95",
# "Cuartil 95 del vcc" = "vcc_q95",
# "Cuartil 95 del vccmorts" = "vccmorts_q95",
# "Cuartil 95 del vsc" = "vsc_q95",
# "Cuartil 95 del vscmorts" = "vscmorts_q95",
# "Cuartil 95 del iavc" = "iavc_q95",
# "Cuartil 95 del iavc_creaf" = "iavc_creaf_q95",
# "Cuartil 95 del vle" = "vle_q95",
# "Cuartil 95 del bm" = "bm_q95",
# "Cuartil 95 del bc" = "bc_q95",
# "Cuartil 95 del br" = "br_q95",
# "Cuartil 95 del bh" = "bh_q95",
# "Cuartil 95 del bat" = "bat_q95",
# "Cuartil 95 del iaf" = "iaf_q95",
# "Cuartil 95 del ph" = "ph_q95",
# "Cuartil 95 del cm" = "cm_q95",
# "Cuartil 95 del cc" = "cc_q95",
# "Cuartil 95 del cr" = "cr_q95",
# "Cuartil 95 del ch" = "ch_q95",
# "Cuartil 95 del cat" = "cat_q95",
# "Cuartil 95 del cca" = "cca_q95",
# "N del Densidad total parcela" = "densitat_n",
# "N del Densidad total pies muertos parcela" = "densitatmorts_n",
# "N del Área Basal total parcela" = "ab_n",
# "N del Área Basal total pies muertos parcela" = "abmorts_n",
# "N del rc" = "rc_n",
# "N del vcc" = "vcc_n",
# "N del vccmorts" = "vccmorts_n",
# "N del vsc" = "vsc_n",
# "N del vscmorts" = "vscmorts_n",
# "N del iavc" = "iavc_n",
# "N del iavc_creaf" = "iavc_creaf_n",
# "N del vle" = "vle_n",
# "N del bm" = "bm_n",
# "N del bc" = "bc_n",
# "N del br" = "br_n",
# "N del bh" = "bh_n",
# "N del bat" = "bat_n",
# "N del iaf" = "iaf_n",
# "N del ph" = "ph_n",
# "N del cm" = "cm_n",
# "N del cc" = "cc_n",
# "N del cr" = "cr_n",
# "N del ch" = "ch_n",
# "N del cat" = "cat_n",
# "N del cca" = "cca_n"
# )
# )
# )
# )
#
# ## mod_advancedFilters inputs ####
#
# # adv_fil_filters variable dictionaries
# min_max_to_vec <- function(min, max) {
#
# res <- list()
#
# for (i in 1:length(min)) {
# res[[i]] <- c(min[i], max[i])
# }
#
# return(res)
# }
#
# conn <- tidyIFN::ifn_connect('guest', 'guest')
#
# # clima
# tbl(conn, 'ifn3_clima') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> clima_max_vars_ifn3
#
# tbl(conn, 'ifn3_clima') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(clima_max_vars_ifn3, by = 'var') -> clima_max_min_vars_ifn3
#
# tbl(conn, 'ifn2_clima') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> clima_max_vars_ifn2
#
# tbl(conn, 'ifn2_clima') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(clima_max_vars_ifn2, by = 'var') %>%
# bind_rows(clima_max_min_vars_ifn3) %>%
# group_by(var) %>%
# summarise(min = min(value_min), max = max(value_max)) -> clima_min_max_summary
#
# clima_value <- clima_min_max_summary %>% group_by(var) %>%
# do(value = min_max_to_vec(.$min, .$max))
#
# clima_final_summary <- clima_min_max_summary %>%
# mutate(value = clima_value[['value']],
# label = var)
#
# clima_final_list <- list()
#
# for (i in 1:nrow(clima_final_summary)) {
# clima_final_list[[i]] <- list(
# min = clima_final_summary[['min']][i],
# max = clima_final_summary[['max']][i],
# label = clima_final_summary[['label']][i],
# value = flatten_dbl(clima_final_summary[['value']][[i]])
# )
# }
#
# names(clima_final_list) <- clima_final_summary[['var']]
#
# dic_adv_fil_clima_filters <- list(
# esp = clima_final_list
# )
#
# # sig extra filters
# tbl(conn, 'ifn3_sig') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> sig_max_vars_ifn3
#
# tbl(conn, 'ifn3_sig') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(sig_max_vars_ifn3, by = 'var') -> sig_max_min_vars_ifn3
#
# tbl(conn, 'ifn2_sig') %>%
# summarise_if(is.numeric, .funs = funs(max), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_max') -> sig_max_vars_ifn2
#
# tbl(conn, 'ifn2_sig') %>%
# summarise_if(is.numeric, .funs = funs(min), na.rm = TRUE) %>%
# collect() %>%
# gather('var', 'value_min') %>%
# full_join(sig_max_vars_ifn2, by = 'var') %>%
# bind_rows(sig_max_min_vars_ifn3) %>%
# group_by(var) %>%
# summarise(min = min(value_min), max = max(value_max)) -> sig_min_max_summary
#
# sig_value <- sig_min_max_summary %>% group_by(var) %>%
# do(value = min_max_to_vec(.$min, .$max))
#
# sig_final_summary <- sig_min_max_summary %>%
# mutate(value = sig_value[['value']],
# label = var) %>%
# filter(var %in% c('altitud', 'orientacio', 'pendentgraus', 'pendentpercentatge'))
#
# sig_final_list <- list()
#
# for (i in 1:nrow(sig_final_summary)) {
# sig_final_list[[i]] <- list(
# min = sig_final_summary[['min']][i],
# max = sig_final_summary[['max']][i],
# label = sig_final_summary[['label']][i],
# value = flatten_dbl(sig_final_summary[['value']][[i]])
# )
# }
#
# names(sig_final_list) <- sig_final_summary[['var']]
#
# pool::poolClose(conn)
#
# dic_adv_fil_sig_filters <- list(
# esp = sig_final_list
# )
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.