R/assignmentMethods.R

In jasenfinch/metaboReports: Automated Report Generation For Metabolomics Analyses

assignmentMethods <- function(analysis){
  methods <- list(
   parameters = function(analysis,type = 'head'){
      headHash <- '##'
      
      if (type == 'sub') {
         headHash <- '###'
      }
      
     str_c("
",headHash," Parameters

```{r assignmentParamters,echo=FALSE}
assignment@parameters
```
")
   },
   assignments = function(analysis,type = 'head'){
      headHash <- '##'
      
      if (type == 'sub') {
         headHash <- '###'
      }
      
     str_c('
',headHash,' Assignments  

```{r assignmentTable,echo = FALSE,cache = FALSE}
datatable(assignment %>%
  summariseAssignment(),
          rownames = F,filter = "top",caption = "Summary table of molecular formula assignments")
```

')
   }
  )
  
  return(methods)
  
}