if (missing(page)|| is.null(page)) {
page <- ..current.page+1
}
- bookmarks[[length(bookmarks)+1]] <-
+ bookmarks\[[length(bookmarks)+1]] <-
list(text=text,
level=level,
page=page)
pdf.bookmarks <-
paste0(pdf.bookmarks,
"BookmarkBegin\n",
- "BookmarkTitle: ",bookmarks[[bookmark]]$text,"\n",
- "BookmarkLevel: ",bookmarks[[bookmark]]$level,"\n",
- "BookmarkPageNumber: ",bookmarks[[bookmark]]$page,"\n")
+ "BookmarkTitle: ",bookmarks\[[bookmark]]$text,"\n",
+ "BookmarkLevel: ",bookmarks\[[bookmark]]$level,"\n",
+ "BookmarkPageNumber: ",bookmarks\[[bookmark]]$page,"\n")
}
temp.pdf <- tempfile(pattern=basename(pdf.file))
temp.pdf.info <- tempfile(pattern=paste0(basename(pdf.file),"info_utf8"))