Plot French national damage functions — plot_damage

plot_damage_function() plots damage functions.

Usage

plot_damage_function(
  damage,
  destination = tempdir(),
  output_file = NULL,
  sheet = NULL,
  typology = NULL,
  duration = c("0", "48"),
  unit = "€/m²",
  language = c("fr", "en")
)

Arguments

damage: either a damage function or a list of damage functions to be compared.
destination: character, path where updated damage function will be saved.
output_file: character, name of the output file for saving purpose. Default to NULL, nothing is saved.
sheet: character, which sheet of damage functions shall be compared.
typology: character, which sub-type of damage functions shall be compared.
duration: character, which duration shall be compared.
unit: character, which unit shall be used.
language: character, which language shall be used for the plot.

Value

Path of the output file, if any.

Examples


if (FALSE) { # \dontrun{
# Example with internal dwelling damage functions
damage = list(
     initial = read_damage_function("dwelling"),
     final = update_damage_function("dwelling")
)

sheet = "logement_surface"
typology = "Logement en collectif"
plot_damage_function(damage[["initial"]], sheet = sheet, typology = typology)
plot_damage_function(damage[["final"]], sheet = sheet, typology = typology)
plot_damage_function(damage, sheet = sheet, typology = typology)

# Example with internal activity damage functions
damage = list(
     initial = read_damage_function("activity"),
     final = update_damage_function("activity")
)

sheet = "batiment_surface"
typology = "4332C"
plot_damage_function(damage[["initial"]], sheet = sheet, typology = typology)
plot_damage_function(damage[["final"]], sheet = sheet, typology = typology)
plot_damage_function(damage, sheet = sheet, typology = typology)

sheet = "equipement_stock_employe"
plot_damage_function(damage, sheet = sheet, typology = "4332C", unit = "€/emp")
plot_damage_function(damage, sheet = "total_employe", typology = "4332C", unit = "€/emp")
} # }