R/DisplayTrafficLight.R

In irisweyermenkhoff/toyota-idv-functions: Risk Reporting and Toolbox Calculation Functions

DisplayTrafficLight <- function(i) {
  
	if (i == "red") {
    htmltools::HTML(
      '<div class="">
				<div style = "float: right;">
					<div class="traffic_color_red"></div>
      		<div class="traffic_color_neutral"></div>
      		<div class="traffic_color_neutral"></div>
				</div>
			</div>'
    )
  } else if (i == "orange") {
    htmltools::HTML(
      '<div class="">
				<div style = "float: right;">
					<div class="traffic_color_neutral"></div>
      		<div class="traffic_color_orange"></div>
      		<div class="traffic_color_neutral"></div>
				</div>
			</div>'
    )
  } else if (i == "green") {
    htmltools::HTML(
      '<div class="">
				<div style = "float: right;">
					<div class="traffic_color_neutral"></div>
      		<div class="traffic_color_neutral"></div>
      		<div class="traffic_color_green"></div>
				</div>
			</div>'
    )
  } else {
    htmltools::HTML(
      '<div class="">
				<div style = "float: right;">
					<div class="traffic_color_neutral"></div>
      		<div class="traffic_color_neutral"></div>
      		<div class="traffic_color_neutral"></div>
				</div>
			</div>'
    )
  }
}