R/output.data.1.R

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

output.data.1 <- function(list_reactivevalue,i) {
	DT::renderDataTable(
		datatable(list_reactivevalue[[i]],
							rownames = FALSE,
							options = list(
								dom = "t"
							)
		) %>%
			formatCurrency(
				columns = names(list_reactivevalue[[i]])[sapply(list_reactivevalue[[i]], is.numeric)],
				interval = 3,
				mark = ".",
				digits = 0,
				currency = "",
				dec.mark = ","
			) 
		#%>%
			# formatDate(
			# 	columns = names(list_reactivevalue[[i]])[sapply(list_reactivevalue[[i]], is.Date)],
			# 	"toLocaleDateString",
			# 	params = list("de-CH")
			# )
	)
}