Question

我正在尝试使用r创建一个Excel文件，其中应包含指向网站的超链接。一切正常，可以在Windows上进行测试，但是在我的Mac上却以某种方式失败...我得到的消息是

无法打开“ LINK”。无法找到Internet服务器或代理服务器。

我不确定问题是否出在我的Excel，Mac或其他方面。有人可以帮我缩小问题范围吗？

编辑：我刚刚发现，例如Google。更新了我的示例。

这是一个可重复的例子

library(xlsx)

df <- data.frame(
  Protein.IDs=c("A0A024QZN2;Q8WXX5;Q2VIL4", 
                "A0A024QZY5;Q13523;B4DZQ5;H0YDJ3;D3DWH5"),
  stringsAsFactors=FALSE
)

df$Uniprot <- 
  sprintf('https://www.uniprot.org/uniprot/?query=%s',
          sapply(strsplit(df$Protein.IDs, ';'), paste, collapse='+OR+'))


df <- rbind(df, c('google link', 'https://google.de')) # EDIT: google works?

excel_wb <- createWorkbook()
sheet <- xlsx::createSheet(excel_wb, sheetName='proteins')
addDataFrame(df, sheet, col.names = TRUE, row.names = FALSE)

rows <- getRows(sheet)
cells <- getCells(rows, colIndex=grep('^Uniprot$', names(df)))

invisible(sapply(cells[-1], function(x) {
  addHyperlink(x, getCellValue(x))
  setCellValue(x, 'Uniprot Link')
}))

rMQanalysis::saveWorkbookMQ(excel_wb, 'uniprottest.xlsx')

Answer 1

由于某种原因，重新启动计算机后，一切正常。不知道是什么，如果有什么改变。

使用xlsx r包在Excel Mac上创建超链接时出现问题

1 个答案: