Экспорт данных в Excel и давая гиперссылок

Question

Я попытался код ниже для придания гиперссылки на другой файл

library(xlsx) 

wb <- createWorkbook() 
sheet1 <- createSheet(wb, "Sheet1") 
rows <- createRow(sheet1, 1:10) # 10 rows 
cells <- createCell(rows, colIndex=1:8) # 8 columns 
links <- c("D://r datasets/sales data.xlsx") 
names(links) <- c("hyperlinks") 
for (row in 1:length(links)) { 
    setCellValue(cells[[row,1]], names(links)[row]) 
    addHyperlink(cells[[row,1]], links[row]) 
} 
saveWorkbook(wb, "links.xlsx") 
shell.exec("links.xlsx") 

, но я получаю ошибку

Ошибка в .jcall (клетка, «V», " setHyperlink», ссылка): java.lang.IllegalArgumentException: Адрес гиперссылки должен быть допустимым URI

Answer 1

Проблема, кажется, с пробелами. Заменить links на

links <- c("D:/rdatasets/salesdata.xlsx") 

и он работает. Если вам действительно нужны пробелы, вы должны быть в состоянии их кодировать как %20, и кажется, что excel выясняет это.

links <- c("D:/r%20datasets/sales%20data.xlsx")