R/heat_risk_index_value.r

In alfcrisci/rBiometeo: Biometeorological Functions in R

#' heat_risk_index_value
#'
#' Calculate the heat risk value for worker by using color codes returning index value.
#'
#' @param wbgt numeric Wetbulb globe temperature index in degC
#' @param cav numeric Clothing adjusted value due to worker clothing ensemble
#' @param tresh numeric treshshold for heat risk in degC ( RAL or REL)
#'
#' @return level risk in value
#'
#' @author    Istituto per la Bioeconomia CNR Firenze Italy  Alfonso Crisci \email{alfonso.crisci@@ibe.cnr.it}
#'
#' @export
#'
#'
#'
#'

heat_risk_index_value=function(wbgt,cav,tresh)  {
  ct$assign("wbgt", as.array(wbgt))
  ct$assign("cav", as.array(cav))
  ct$assign("tresh", as.array(tresh))
  ct$eval("var res=[]; for(var i=0, len=wbgt.length; i < len; i++){ res[i]=heat_risk_index_value(wbgt[i],cav[0],tresh[0])};")
  res=ct$get("res")
  return(res)
}