This seems a bit deep into knitr for R-help... you might have better luck on
StackExchange. I also suggest that posting an incomplete example is usually the
kiss of death for getting constructive assistance online.
FWIW my guess is that executing knitr from within an Rmarkdown document is a
bad idea unless you are building using child documents. Try manipulating your
markdown from an R file.
On December 16, 2018 11:48:44 AM PST, Nathan Parsons
<nathan.f.pars...@gmail.com> wrote:
>Goal: post from R to Wordpress installation on server.
>
>Problem: R keeps returning the error “Error in parse_block(g[-1],
>g[1], params.src) : duplicate label 'setup’” if error = FALSE in the
>knitr options or in an r chunk. It works fine if error = TRUE. I could
>just go through each post each time and remove any returned errors
>manually, but I'd like to find a more permanent solution.
>
>I don't have any duplicate labels; is knit2wp somehow introducing a
>duplicate label in the .Rmd
>-> .md / upload process?
>
>My code:
>
>```{r setup, include=FALSE}
>## Set the global chunk options for knitting reports
> knitr::opts_chunk$set(
> echo = TRUE,
> eval = TRUE,
> message = TRUE,
> error = FALSE,
> warning = TRUE,
> highlight = TRUE,
> prompt = FALSE
> )
>
>## Load and activate libraries using 'pacman' package
> if (!require(pacman)) {
> install.packages("pacman", repos = "http://cran.us.r-project.org";)
> require(pacman)
> }
>
> pacman::p_load_gh("duncantl/XMLRPC",
> "duncantl/RWordPress")
> pacman::p_load("knitr")
>```
>
>```{r chunk1, echo = FALSE}
>## post information
> fileName <- "fancy_post.Rmd"
> postTitle <- "Fancy Post Title"
>
>```
>
>blah blah blah...
>
>```{r chunk2, echo = FALSE}
>## Set working directory to correct location
> last_dir <- getwd()
> setwd("~/Sites/posts")
>
>## Tell knitr to create the html code and upload it to your wordpress
>site
> knit2wp(input = fileName,
> title = postTitle,
> publish = FALSE,
> action = 'newPost')
>
> setwd(last_dir)
>```
>
>
>Traceback:
>Error in parse_block(g[-1], g[1], params.src) : duplicate label 'setup'
>26. stop("duplicate label '", label, "'")
>25. parse_block(g[-1], g[1], params.src)
>24. FUN(X[[i]], ...)
>23. lapply(groups, function(g) { block = grepl(chunk.begin, g[1]) if
>(!set.preamble && !parent_mode()) { return(if (block) "" else g) ...
>22. split_file(lines = text)
>21. process_file(text, output)
>20. knit(input, encoding = encoding, envir = envir)
>19. knit2wp(input = fileName, title = postTitle, publish = FALSE,
>action = "newPost")
>18. eval(expr, envir, enclos)
>17. eval(expr, envir, enclos)
>16. withVisible(eval(expr, envir, enclos))
>15. withCallingHandlers(withVisible(eval(expr, envir, enclos)),
>warning = wHandler, error = eHandler, message = mHandler)
>14. handle(ev <- withCallingHandlers(withVisible(eval(expr, envir,
>enclos)), warning = wHandler, error = eHandler, message = mHandler))
>13. timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr,
>envir, enclos)), warning = wHandler, error = eHandler, message =
>mHandler)))
>12. evaluate_call(expr, parsed$src[[i]], envir = envir, enclos =
>enclos, debug = debug, last = i == length(out), use_try =
>stop_on_error != 2L, keep_warning = keep_warning, keep_message =
>keep_message, output_handler = output_handler, include_timing =
>include_timing)
>11. evaluate::evaluate(...)
>10. evaluate(code, envir = env, new_device = FALSE, keep_warning =
>!isFALSE(options$warning), keep_message = !isFALSE(options$message),
>stop_on_error = if (options$error && options$include) 0L else 2L,
>output_handler = knit_handlers(options$render, options))
>9. in_dir(input_dir(), evaluate(code, envir = env, new_device = FALSE,
>keep_warning = !isFALSE(options$warning), keep_message =
>!isFALSE(options$message), stop_on_error = if (options$error &&
>options$include) 0L else 2L, output_handler =
>knit_handlers(options$render, options)))
>8. block_exec(params)
>7. call_block(x)
>6. process_group.block(group)
>5. process_group(group)
>4. withCallingHandlers(if (tangle) process_tangle(group) else
>process_group(group), error = function(e) { setwd(wd) cat(res, sep =
>"\n", file = output %n% "") ...
>3. process_file(text, output)
>2. knit(input, encoding = encoding, envir = envir)
>1. knit2wp(input = fileName, title = postTitle, publish = FALSE,
>action = "newPost")
>
>______________________________________________
>R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide
>http://www.R-project.org/posting-guide.html
>and provide commented, minimal, self-contained, reproducible code.
--
Sent from my phone. Please excuse my brevity.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
