try commenting out [[

diff --git a/posts/adding_toc_to_pdfs_in_R.mdwn b/posts/adding_toc_to_pdfs_in_R.mdwn
index 0b67f734a8b70bc0aee97239fd58dbb8bf98f2c2..b78546ce340a0e4aca0e70d6ca113973859bd80f 100644 (file)
--- 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
          }
          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)
              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",
              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"))
          }
          temp.pdf <- tempfile(pattern=basename(pdf.file))
          temp.pdf.info <- tempfile(pattern=paste0(basename(pdf.file),"info_utf8"))