library(magrittr)
library(tablet)
library(kableExtra)
library(yamlet)
x <- data.frame(DOSE = c(12, 1.2, 2.4, 6, 12, 1.2)) %>% decorate('DOSE: [ Dose, mg ]')
x %>%
as_categorical(DOSE) %>%
resolve %>%
tablet %>%
as_kable %>%
kable_classic
Run the code above in your browser using DataLab