Suggestion: add hyperlinks to the contents page

[uamoaku]

Hello,

My suggestion is that it would be great if the package could include functionality to add hyperlinks in the contents page which link to each sheet in the workbook.

Thanks!

[cat-hand]

Until this is solved in the package, you can use this code:

contents_last_row <- nrow(contents_df) + 3

invisible(lapply(4:contents_last_row, function(i) {
  writeFormula(excel_wb, sheet = 2, startRow = i, startCol = 1,
               x = paste0('=HYPERLINK("#', contents_df$`Sheet name`[i-3],
                          '!A1", "', contents_df$`Sheet name`[i-3], '")'))
}))