library(htmltools)
phones <- as.data.frame(WorldPhones)
div(
class = "timeline",
lapply(rownames(phones), function(year) {
div(
class = "event",
`data-label` = year,
paste0("N. America: ", phones[year, "N.Amer"], "k"),
tags$br(),
paste0("Europe: ", phones[year, "Europe"], "k")
)
})
)
N. America: 45939k
Europe: 21574k
Europe: 21574k
N. America: 60423k
Europe: 29990k
Europe: 29990k
N. America: 64721k
Europe: 32510k
Europe: 32510k
N. America: 68484k
Europe: 35218k
Europe: 35218k
N. America: 71799k
Europe: 37598k
Europe: 37598k
N. America: 76036k
Europe: 40341k
Europe: 40341k
N. America: 79831k
Europe: 43173k
Europe: 43173k