Извлечение ссылок из листа Excel с использованием R-пакета 'openxlsx' - PullRequest
Новая
       9

Извлечение ссылок из листа Excel с использованием R-пакета 'openxlsx'

0 голосов
/ 25 мая 2018

Я работаю с таблицей Excel, в которой некоторые столбцы содержат гиперссылки, представленные в виде текста, который полностью отличается от фактического адреса, на который указывают гиперссылки.Я хочу использовать R-код для изменения и подмножества листа Excel, но сохранить гиперссылки.Я думаю, что могу сделать это, извлекая эти гиперссылки как индексированный символьный вектор, а затем повторно вводя их в новый документ Excel, используя функции makeHyperlinkString() и writeFormula().Но я не могу понять, как получить вектор самих ссылок.

В случае, если это имеет значение, я намерен сделать все изменения и поднаборы в версии data.frame листа Excel, а не в рабочей книге.объект.

1 Ответ

0 голосов
/ 25 мая 2018

О, теперь я думаю, что у меня есть твоя проблема.Я думал, что были только нормальные гиперссылки, а не Excel-гиперссылки.

Я думаю, что это может помочь вам получить вектор гиперссылок, хотя это немного грязно. 

library(openxlsx)
pathtofile =  "path to .xlsx file"

df1 <- read.xlsx(xlsxFile = pathtofile, 
                 sheet = 1, skipEmptyRows = FALSE, 
                 colNames = F, rowNames = F,
                startRow = 1)

## Sheet or Tabelle
Sheet = "Sheet" ## Or "Tabelle"

## Get Names of rows from Hyperlink column
rowIndex <- sub(x = df1[,1], pattern = paste0("(#'",Sheet,"\\d'!)"), replacement = "")

## Get the Sheet, where Hyperlinks are saved
SheetName <- regmatches(df1[,1], regexpr(text = df1[,1], pattern = paste0("(",Sheet,"\\d)")))
## Extract only the Sheet number
SheetIndex <- as.numeric(sub(x = SheetName, pattern = Sheet, replacement = ""))

## Get the row Indexes as numeric
RowIndexNum <- as.numeric(regmatches(rowIndex, regexpr(text = rowIndex, pattern = "\\d")))
## Get the column name as character
RowIndexName <- sub(x = rowIndex, pattern = "\\d", "")
## Create uppercase Letters
myLetters <- toupper(letters[1:26])
## Convert Row Name (character) to numeric (based on alphabetical order)
RowIndexNameNum <- match(RowIndexName, myLetters)

## If Hyperlinks only in 1 Sheet or several sheets
if (length(unique(SheetIndex)) == 1) {
  dfLinks <- read.xlsx(xlsxFile = pathtofile,
                       sheet = unique(SheetIndex), 
                       skipEmptyRows = FALSE, 
                       colNames = F, rowNames = F, 
                       rows = RowIndexNum[1]:tail(RowIndexNum,1),
                       cols = unique(RowIndexNameNum),
                       startRow = 1
                       );
} else {
  dfLinks <- data.frame()
  for (i in unique(SheetIndex)){
    dfTmp <- read.xlsx(xlsxFile = pathtofile,
              sheet = i, 
              skipEmptyRows = FALSE, 
              colNames = F, rowNames = F, 
              rows = RowIndexNum[1]:tail(RowIndexNum,1),
              cols = unique(RowIndexNameNum),
              startRow = 1)
    dfLinks <- rbind(dfLinks, dfTmp)
  }
}

dfLinks

Вот какМой файл Excel выглядит так:

enter image description here

...