Проблемы при создании гиперссылок на Excel Mac с пакетом xlsx r - PullRequest
Новая
       34

Проблемы при создании гиперссылок на Excel Mac с пакетом xlsx r

0 голосов
/ 16 ноября 2018

Я пытаюсь создать файл Excel с r, который должен включать гиперссылки на веб-сайт.Все работает нормально и может быть протестировано в Windows, но на моем Mac это как-то не получается ... Я получаю сообщение, что

Невозможно открыть "ССЫЛКА".Не удается найти интернет-сервер или прокси-сервер.

Я не уверен, что проблема в моем превосходстве, моем 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')

1 Ответ

0 голосов
/ 21 ноября 2018

Почему-то после перезагрузки компьютера все работает.Не уверен, что и если что-то изменилось.

...