rmd_pdf_examples/captions_html_latex.rmd at master · HanOostdijk/rmd_pdf_examples · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
```{r echo=F}
if (out_type == "html") {

  library(captioner)

  init_caption <- function(figpref,tabpref) {
    fig_nums <<- captioner(prefix = figpref)
    tab_nums <<- captioner(prefix = tabpref)
  }

  add_caption <- function (name,ft,caption) {
    if ( tolower(ft) == 'f') {
      fig_nums(name=name, caption=caption, display = FALSE)
    } else {
      tab_nums(name=name, caption=caption, display = FALSE)
    }
  }

  fig_caption <- function (name) {
    fig_nums(name)

  }

  tab_caption <- function (name) {
    tab_nums(name)
  }

  ref_caption <- function (name,ft,page=F,on="on ") {
    if (page == F) {
      if ( tolower(ft) == 'f') {
        fig_nums(name=name, display = "cite")
      } else {
        tab_nums(name=name, display = "cite")
      }
    } else {
      ""
    }
  }

} else {
  library(xtable)
  options(xtable.comment = FALSE)
  init_caption <- function(figpref,tabpref) {
    fig_nums <<- list()
    tab_nums <<- list()
  }

  add_caption <- function (name,ft,caption) {
    if ( tolower(ft) == 'f') {
      t <- fig_nums
      t[[name]] <- caption
      fig_nums <<- t
    } else {
      t <- tab_nums
      t[[name]] <- caption
      tab_nums <<- t
    }
  }

  fig_caption <- function (name) {
    fig_nums[[name]]
  }

  tab_caption <- function (name) {
    paste0("\\label{",name,"}",tab_nums[[name]] )
  }


  ref_caption <- function (name,ft,page=F,on="on ")  {
    if ( tolower(ft) == 'f') {
      if (page ==F) {
        paste0("Figure \\ref{fig:",name,"}")
      } else {
        paste0(on,"page \\pageref{fig:",name,"}")
      }
    } else {
      if (page ==F) {
        paste0("Table \\ref{",name,"}")
      } else {
        paste0(on,"page \\pageref{",name,"}")
      }
    }
  }
}
```