diff --git a/config.R b/config.R
index 9331a536b4bdbdf08445fd452b4cafe6bb41a85d..ec574b1711820a763132685c8889380b6b3134cd 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]]
+    })
+})