r - 如何在R中使用超链接打开工作表

Question

我在 Excel 文件中有销售数据，我必须在 sheet3 中打开。我尝试了下面的代码，但无法提供指向 sheet3 的超链接。

library(xlsx)
wb <- createWorkbook()
sheet1 <- createSheet(wb, "Sheet1")
rows <- createRow(sheet1)
cells <- createCell(rows)
links <- c("[D://r datasets/sales data.xlsx]sheet3!")
names(links) <- c("link1")
for (row in 1:length(links)) {
setCellValue(cells[[row,1]], names(links)[row])
addHyperlink(cells[[row,1]], links[row])
}
saveWorkbook(wb, "hyperlinks to file.xlsx")
shell.exec("hyperlinks to file.xlsx")

任何人都可以在这方面提供帮助吗？

Answer 1

你可以做

library(xlsx) 

wb1 <- createWorkbook() 
createSheet(wb1, "Sheet1")
createSheet(wb1, "Sheet2")
createSheet(wb1, "Sheet3")
saveWorkbook(wb1, tf1 <- tempfile(fileext = ".xlsx"))

wb2 <- createWorkbook() 
sheet2 <- createSheet(wb2, "Sheet2")
rows <- createRow(sheet2) 
cells <- createCell(rows) 
setCellValue(cells[[1,1]], "To Other File") 
addHyperlink(cells[[1,1]],sprintf("file:///%s#%s!%s", normalizePath(tf1, "/"), names(getSheets(wb1))[2], "B2"), "FILE") 
saveWorkbook(wb2, tf2 <- tempfile(fileext = ".xlsx"))
shell.exec(tf2)