R/assignmentMethods.R

Defines functions assignmentMethods

assignmentMethods <- function(analysis){
  methods <- list(
   parameters = function(analysis){
     "
### Parameters

```{r assignmentParamters,echo=FALSE}
[email protected]
```
"
   },
   assignments = function(analysis){
     '
### Assignments  

```{r assignmentTable,echo = FALSE}
datatable([email protected] %>%
              arrange(`Theoretical M`,MF) %>%
              mutate(`PPM Error` = `PPM Error` %>% round(3),
                     Score = Score %>% round(3)),
          rownames = F,filter = "top")
```

'
   }
  )
  
  return(methods)
  
}
jasenfinch/metaboReports documentation built on Aug. 11, 2018, 1:06 p.m.