alcohol-calculator

Shiny application to calculate alcohol in human blood

start locally

## create model
# MODEL <- ru.import.slv("al_07_05")		# import model from .SLV
## save model and create .c
# save(MODEL, file = "alc model.rumod")
compileCode <- paste0("R CMD SHLIB ", MODEL$dll, ".c")
system(compileCode)

shiny::runApp()