library(openxlsx)
df <- read.xlsx("your_file.xlsx", colNames = FALSE)
# Create a new workbook to store the hyperlinks
new_workbook <- createWorkbook()
# Add a new sheet to the workbook
addWorksheet(new_workbook, "Hyperlinks")
# Loop through the data frame and add hyperlinks
for (i in 1:nrow(df)) {
url <- df[i, 1]
text <- df[i, 2]
hyperlink_formula <- paste0('HYPERLINK("', url, '", "', text, '")')
writeFormula(new_workbook, "Hyperlinks", hyperlink_formula, startRow = i, startCol = 1)
}
saveWorkbook(new_workbook, "hyperlinked_links.xlsx", overwrite = TRUE)
我可以为您提供以下解决问题的方法