From 1e6afca06cae5428aa07ac0f915ce474afb2d2a8 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 13 Jan 2015 17:30:28 -0800 Subject: [PATCH] try commenting out [[ --- posts/adding_toc_to_pdfs_in_R.mdwn | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/posts/adding_toc_to_pdfs_in_R.mdwn b/posts/adding_toc_to_pdfs_in_R.mdwn index 0b67f73..b78546c 100644 --- a/posts/adding_toc_to_pdfs_in_R.mdwn +++ b/posts/adding_toc_to_pdfs_in_R.mdwn @@ -32,7 +32,7 @@ The R code then looks like the following: 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) @@ -45,9 +45,9 @@ The R code then looks like the following: 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")) -- 2.39.2