R/DisplayTrafficLightSmall.R

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

DisplayTrafficLightSmall <- function(i) {
  
	if (i == "red") {
    htmltools::HTML(
      '
				<div style="vertival-align: middle; display: inline-block">
					<div class="traffic_color_red"></div>
				</div>
		'
    )
  } else if (i == "orange") {
    htmltools::HTML(
      '
			<div style="vertival-align: middle; display: inline-block">
      		<div class="traffic_color_orange"></div>
				</div>'
		
    )
  } else if (i == "green") {
    htmltools::HTML(
      '
				<div style="vertival-align: middle; display: inline-block">
      		<div class="traffic_color_green"></div>
			
			</div>'
    )
  } else {
    htmltools::HTML(
      '
			<div style="vertival-align: middle; display: inline-block">
					<div class="traffic_color_neutral"></div>
				
			</div>'
    )
  }
}