df <- data.frame(
name = c("UCLA", "Berkeley", "Jeroen"),
founded = c(1919, 1868, 2030),
website = xl_hyperlink(c("http://www.ucla.edu", "http://www.berkeley.edu", NA), "homepage")
)
df$age <- xl_formula('=(YEAR(TODAY()) - INDIRECT("B" & ROW()))')
write_xlsx(df, 'universities.xlsx')
# xl_hyperlink_cell() stores the URL as native cell metadata.
# readxl cannot read these cells, but they display cleanly in Excel.
df2 <- data.frame(
name = c("UCLA", "Berkeley"),
website = xl_hyperlink_cell(c("http://www.ucla.edu", "http://www.berkeley.edu"),
value = "homepage")
)
write_xlsx(df2, 'universities2.xlsx')
# cleanup
unlink(c('universities.xlsx', 'universities2.xlsx'))
Run the code above in your browser using DataLab