При запуске вашего кода, похоже, вся соответствующая информация хранится в матрице символов 9 x 13 под названием titles
. Похоже, вам нужна информация из определенных строк этой матрицы. Мы можем извлечь его следующим образом:
library(stringr)
data.frame(sheetName = titles['content',],
sheetId = str_sub(titles['id',],-3,-1))
sheetName sheetId
1 FP1 times od6
2 FP1 Classification od7
3 FP2 times od4
4 FP2 Classification od5
5 FP3 Times oda
6 FP3 Classification odb
7 Practice Combined od8
8 Quali Times od9
9 Quali Stats ocy
10 Race times ocz
11 Race History ocw
12 Race Proximity ocx
13 Race Stats od2
Обратите внимание, что я упрощен, предполагая, что идентификатор листа всегда будет последним тремя символами URL. В общем случае это может быть не так, и в этом случае вам потребуется более сложная стратегия для извлечения соответствующего фрагмента URL, возможно, с использованием регулярного выражения.