From a1e08d04822da8b4ac6e7e7898a76c1a1598a98e Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 26 Sep 2015 13:08:36 -0300
Subject: [PATCH] Defines 'native_encoding' function internally.
---
R/knit2wpCrayon.R | 28 ++++++++++++++++++++++++----
1 file changed, 24 insertions(+), 4 deletions(-)
diff --git a/R/knit2wpCrayon.R b/R/knit2wpCrayon.R
index 7b84a81..6c4f45c 100644
--- a/R/knit2wpCrayon.R
+++ b/R/knit2wpCrayon.R
@@ -65,23 +65,39 @@ knit2wpCrayon <- function(input, title="A post from knitr", ...,
stop("`markdown` needed for this function to work. Please install it.",
call.=FALSE)
}
- if (!requireNamespace("RWordPress", quietly=TRUE)){
+ if (!requireNamespace("RWordPress", quietly=TRUE)){
stop("`RWordPress` needed for this function to work. Please install it.",
call.=FALSE)
}
+ ##
+ ##-------------------------------------------
+ ## knitr:::native_encode().
+ ##
+ native_encode <- function (x, to = ""){
+ idx = Encoding(x) == "UTF-8"
+ x2 = iconv(x, if (any(idx)) "UTF-8" else "", to)
+ if (!any(is.na(x2)))
+ return(x2)
+ warning("some characters may not work under the current locale")
+ x
+ }
+ ##
+ ##-------------------------------------------
+ ## Modifed body of the knit2wp().
+ ##
out <- knitr::knit(input, encoding=encoding)
on.exit(unlink(out))
con <- file(out, encoding=encoding)
on.exit(close(con), add=TRUE)
- content <- knitr:::native_encode(readLines(con, warn=FALSE))
+ content <- native_encode(readLines(con, warn=FALSE))
content <- paste(content, collapse="\n")
content <- markdown::markdownToHTML(text=content, fragment.only=TRUE)
content <- gsub(
pattern="<pre><code class=\"([[:alpha:]]+)\">(.+?)</code></pre>",
replacement="<pre class=\"lang:\\1 decode:true\">\\2</pre>",
x=content)
- content=knitr:::native_encode(content, "UTF-8")
- title=knitr:::native_encode(title, "UTF-8")
+ content=native_encode(content, "UTF-8")
+ title=native_encode(title, "UTF-8")
if (write){
writeLines(text=content,
con=gsub(x=out, pattern="\\.md$", replacement=".html"))
@@ -96,3 +112,7 @@ knit2wpCrayon <- function(input, title="A post from knitr", ...,
print(do.call(action, args=WPargs))
}
}
+
+
+library(knitr)
+knitr:::native_encode
--
GitLab