
## `r i`

```{r, out.width='100%'}
if(nrow(Result_c) != 0) {
  plotPath <- paste(tempPath, "/plots/", i, "_TimeSeries.png", sep = "")
  knitr::include_graphics(plotPath)
}

```


```{r, results = 'asis'}

if(nrow(Result_c) != 0) {
    DT::datatable(Result_c, 
                  rownames=FALSE, 
                  escape=FALSE,
                  options = list(
                    pageLength = 20,
                    autoWidth = FALSE,
                    dom = 't',
                    columnDefs = list(list(className = 'dt-left', orderable=FALSE, targets="_all")))
            )
}else {pander::pandoc.p("No signals")}

```

