R/OutputDataPieBar.R

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

OutputDataPieBar <- function(list_reactivevalue, i,
                             with_description = FALSE,
														 render_shiny = TRUE) {
  if (with_description == TRUE & render_shiny == TRUE) {
    renderDT({
      DT::datatable(list_reactivevalue[[i]] %>%
        select(
          Risk.key.figures,
          Description,
          "DE", "DE_img",
          "ES", "ES_img",
          "FR", "FR_img",
          "RU", "RU_img",
          "PL", "PL_img",
          "NO", "NO_img",
          "SE", "SE_img",
          "PT", "PT_img",
          "Group"
        ),
      colnames = c(
        "",
        "DE", "",
        "ES", "",
        "FR", "",
        "RU", "",
        "PL", "",
        "NO", "",
        "SE", "",
        "PT", "",
        "Group"
      ),
      escape = FALSE,
      rownames = FALSE,
      options = list(
        searching = FALSE,
        paging = FALSE,
        ordering = FALSE, 
        info = FALSE
      )
      ) %>%
        formatStyle(c(2, 18), "border-right" = "1px solid #ddd") %>%
        formatStyle(c(seq(4, 18, 2)), color = "#bbbbbb", fontSize = "11px")
    })


  } else if (with_description == FALSE & render_shiny == TRUE){

    renderDT({
      DT::datatable(list_reactivevalue[[i]] %>%
        select(
          Risk.key.figures,
          "DE", "DE_img",
          "ES", "ES_img",
          "FR", "FR_img",
          "RU", "RU_img",
          "PL", "PL_img",
          "NO", "NO_img",
          "SE", "SE_img",
          "PT", "PT_img",
          "Group"
        ),
      colnames = c(
        "",
        "DE", "",
        "ES", "",
        "FR", "",
        "RU", "",
        "PL", "",
        "NO", "",
        "SE", "",
        "PT", "",
        "Group"
      ),
      escape = FALSE,
      rownames = FALSE,
      options = list(
        searching = FALSE,
        paging = FALSE,
        ordering = FALSE, 
        info = FALSE
      )
      ) %>%
        formatStyle(c(1, 17), "border-right" = "1px solid #ddd") %>%
        formatStyle(c(seq(3, 17, 2)), color = "#bbbbbb", fontSize = "11px")
    })
  } else if (with_description == TRUE & render_shiny == FALSE) {
  
  		DT::datatable(list_reactivevalue[[i]] %>%
  										select(
  											Risk.key.figures,
  											Description,
  											"DE", "DE_img",
  											"ES", "ES_img",
  											"FR", "FR_img",
  											"RU", "RU_img",
  											"PL", "PL_img",
  											"NO", "NO_img",
  											"SE", "SE_img",
  											"PT", "PT_img",
  											"Group"
  										),
  									colnames = c(
  										"",
  										"DE", "",
  										"ES", "",
  										"FR", "",
  										"RU", "",
  										"PL", "",
  										"NO", "",
  										"SE", "",
  										"PT", "",
  										"Group"
  									),
  									escape = FALSE,
  									rownames = FALSE,
  									options = list(
  										searching = FALSE,
  										paging = FALSE,
  										ordering = FALSE, 
  										info = FALSE
  									)
  		) %>%
  			formatStyle(c(2, 18), "border-right" = "1px solid #ddd") %>%
  			formatStyle(c(seq(4, 18, 2)), color = "#bbbbbb", fontSize = "11px")
  
  } else if (with_description == FALSE & render_shiny == FALSE){
  	
  	
  		DT::datatable(list_reactivevalue[[i]] %>%
  										select(
  											Risk.key.figures,
  											"DE", "DE_img",
  											"ES", "ES_img",
  											"FR", "FR_img",
  											"RU", "RU_img",
  											"PL", "PL_img",
  											"NO", "NO_img",
  											"SE", "SE_img",
  											"PT", "PT_img",
  											"Group"
  										),
  									colnames = c(
  										"",
  										"DE", "",
  										"ES", "",
  										"FR", "",
  										"RU", "",
  										"PL", "",
  										"NO", "",
  										"SE", "",
  										"PT", "",
  										"Group"
  									),
  									escape = FALSE,
  									rownames = FALSE,
  									options = list(
  										searching = FALSE,
  										paging = FALSE,
  										ordering = FALSE, 
  										info = FALSE
  									)
  		) %>%
  			formatStyle(c(1, 17), "border-right" = "1px solid #ddd") %>%
  			formatStyle(c(seq(3, 17, 2)), color = "#bbbbbb", fontSize = "11px")
  	
  }
}