From 7737389cdda187eb6d91464180e363dcbee7ebab Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Wed, 6 Jan 2016 16:32:51 -0200
Subject: [PATCH] =?UTF-8?q?Adiciona=20fun=C3=A7=C3=A3o=20para=20contador?=
=?UTF-8?q?=20de=20figuras=20em=20html.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
config.R | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/config.R b/config.R
index 9331a53..ec574b1 100644
--- a/config.R
+++ b/config.R
@@ -12,3 +12,18 @@ renderUrl <- function(text, url, output){
## renderUrl("Walmes Zeviani", "http://www.leg.ufpr.br/~walmes")
## renderUrl("Walmes Zeviani", "http://www.leg.ufpr.br/~walmes",
## output="tex")
+
+## http://stackoverflow.com/questions/13848137/figure-captions-references-using-knitr-and-markdown-to-html
+fig <- local({
+ i <- 0
+ ref <- list()
+ list(
+ cap = function(refName, text) {
+ i <<- i + 1
+ ref[[refName]] <<- i
+ paste("Figura ", i, ": ", text, sep = "")
+ },
+ ref = function(refName) {
+ ref[[refName]]
+ })
+})
--
GitLab