R/OutputGgplotly.R

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

OutputGgplotly <- function(list_reactivevalue, i,
                           render_shiny = TRUE) {
  
  if (render_shiny == TRUE) {
  
  renderPlotly({
		ggplotly(
			list_reactivevalue[[i]],
			tooltip = "text"
		)
	})
  } else {
    ggplotly(
      list_reactivevalue[[i]],
      tooltip = "text"
    )
}
}