tcarruth/MERA
Method Evaluation and Risk Assessment

Package index
Search the tcarruth/MERA package
Vignettes
Functions
4
Source code
40
Man pages
2
Home
/
GitHub
/
tcarruth/MERA
/

In tcarruth/MERA: Method Evaluation and Risk Assessment 

knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
knitr::opts_chunk$set(dpi=85)

#options(width = 650)



incrate<-1/10
incProgress(incrate)

library(DT)
dims<-list(nMPs=params$MSEobj@nMPs)

  cat("\\newpage")
  cat('\n')
  cat(paste0("# ",params$Skin$Evaluation$Intro_title[[1]]))
  cat('\n')
  cat(params$Skin$Evaluation$Intro_text[[1]])    
  cat('\n')

  i<-1

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

   cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  incProgress(incrate)

  i<-2

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-3

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-4

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-5

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-6

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-7

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-8

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

  i<-9

  cat("\\newpage")
  if(length(params$Skin$Evaluation$Tab_title)>=i){
  if(params$Skin$Evaluation$Tab_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Tab_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Tab_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Tabs[[i]]))>1){
      params$Skin$Evaluation$Tabs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  } 

if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){

  width=params$Skin$Evaluation$Fig_dim[[i]](dims)$width/100
  height=params$Skin$Evaluation$Fig_dim[[i]](dims)$height/100 

  }else{
    width=3
    height=4
  }
}else{
  width=3
  height=4

}  

  knitr::opts_chunk$set(fig.width=width, fig.height=height, echo=FALSE, warning=FALSE, message=FALSE)
  cat("\\newpage")
  if(length(params$Skin$Evaluation$Fig_title)>=i){
  if(params$Skin$Evaluation$Fig_title[[i]]!=""){
    cat('\n')
    cat(paste0("# ",params$Skin$Evaluation$Fig_title[[i]]))
    cat('\n')
    cat(params$Skin$Evaluation$Fig_text[[i]])    
    cat('\n')
    if(length(body(params$Skin$Evaluation$Figs[[i]]))>1){
      params$Skin$Evaluation$Figs[[i]](params$MSEobj,params$dat,params$dat_ind,params$options)
    }
  }
  }

Version Notes

The package is subject to ongoing testing. If you find a bug or a problem please send a report to t.carruthers@oceans.ubc.ca so that it can be fixed! 




  cat(params$SessionID)
  cat("\n\n")
  cat(params$copyright)


tcarruth/MERA documentation built on Jan. 29, 2021, 3:15 a.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close