R/markdownSubfigure.R

In Pmisc: Various Utilities for knitr and inla

#' @export
hook_plot_mdsubfig = function(x, options) {
# make multiple plots as pseudo-subfigures, in a table
  
  
  if (options$fig.show == 'animate') return(knitr::hook_plot_html(x, options))
  
  base = knitr::opts_knit$get('base.url') 
  if(is.null(base)) base=''

  fig.num =options$fig.num

  cap = options$fig.cap
  scap = options$fig.subcap

  if(is.null(cap)) cap=''
  if(is.null(scap)){
    scap = cap
  }

  if(length(options$out.width)) {
    options$out.width = rep_len(options$out.width, fig.num)
  }

  result = 
      sprintf('![%s](%s%s) ', scap, base, x)#knitr:::.upload.url(x))    
  
  if(any(options$fig.ncol==0)){
    return(result)
  }
  
  
  if(is.null(fig.num))
    fig.num=1
  
  
  
  
  if(length(scap)) {
    fig.cur =options$fig.cur
    if(is.null(fig.cur))
      fig.cur=1
    fig.ncol = options$fig.ncol
    if(is.null(fig.ncol)) {
      fig.ncol = 1
    }
    
    Drow = floor((fig.cur-1)/fig.ncol)+1
    Dcol = fig.cur - (Drow-1) * fig.ncol 
    
    if(length(options$out.width)) {
      # in the first row
      result = paste0(
          gsub("[[:space:]]*$", "", result), 
          '{width=', options$out.width[fig.cur], '}')
    }
    
    if( (Dcol == fig.ncol ) | (fig.cur == fig.num) ) { 
      # we're at the end of a column or the last plot
      Dend = fig.ncol*Drow

      result = paste(result, 
          "\n\n", sep=""
      )
      
    } else {
      result = paste( result, "\n", sep="")  	
    }
    
    if(fig.cur==1) {
      result = paste('<div id="',
          options$fig.lp, 
          options$label, 
          '">\n',
          result, sep="")
    }
    
    if(fig.cur == fig.num)
      result = paste(result, cap, "\n</div>\n\n",
          sep="")	
    
  }
  result
  
}