# Copyright © 2016 RTE Réseau de transport d’électricité
#' compute thermal capacities from study
#' @param opts \code{simOptions} obtain which \link[antaresRead]{setSimulationPath}
#' @export
thermalGroupCapacities <- function(opts = simOptions()){
clDesc <- readClusterDesc(opts)
clDesc <- clDesc[,list(thermalGroupCapacities = sum(unitcount*nominalcapacity)), by = c("area", "group")]
clDesc
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.