----

## <a name="jenkins"></a> Jenkins

### <a name="jenkins_builds"></a> Builds

**Download**: [`r file_jenkins_builds`.gz](../`r file_jenkins_builds`.gz)

```{r jenkins_b_init}
data <- read.csv(file=file_jenkins_builds, header=T)
```

File is [``r file_jenkins_builds``](../`r file_jenkins_builds`.gz), and has ``r ncol(data)`` columns for ``r nrow(data)`` commits.

<table class="table table-striped">
  <tr><th>ID</th><th>Name</th><th>Time</th><th>Result</th></tr>
```{r jenkins_b_table, eval=T, echo=FALSE, message=FALSE, results='asis'}
t <- apply(head(x = data, n = 10), 1,
		   function(x) paste(' <tr><td><a href="', trimws(x[[7]]), '">', trimws(x[[4]]), '</a></td><td>', 
		                     trimws(x[[2]]), '</a></td><td>', trimws(x[[1]]), '</a></td><td>', 
		                     trimws(x[[3]]), '</td></tr>', sep=''))
t <- paste(t, collapse=" ")
cat(t)
```
</table>

```{r jenkins_b_plot, echo=FALSE, message=FALSE, results='asis'}
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

data.table <- as.data.frame(table(data$result))
names(data.table) <- c('Result', 'Count')

data.table[data.table$Result == "ABORTED", c('Colour')] <- '#D3D3D3'
data.table[data.table$Result == "FAILURE", c('Colour')] <- '#DC3912'
data.table[data.table$Result == "SUCCESS", c('Colour')] <- '#109618'
data.table[data.table$Result == "UNSTABLE", c('Colour')] <- '#FF9900'

p <- gvisPieChart(data.table[,c('Result', 'Count')],
              options = list(
                title=paste("Build Results for project ", project_id, " ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                colors=paste('["', paste(data.table$Colour, collapse = '", "', sep=""), '"]', collapse = '", "', sep=""),
                pieHole= 0.4))

print(p, 'chart')
```

<br />

### <a name="jenkins_jobs"></a> Jobs

**Download**: [`r file_jenkins_jobs`.gz](../`r file_jenkins_jobs`.gz)

```{r jenkins_j_init}
data <- read.csv(file=file_jenkins_jobs, header=T)
```

File is [``r file_jenkins_jobs``](../`r file_jenkins_jobs`.gz), and has ``r ncol(data)`` columns for ``r nrow(data)`` commits.

<table class="table table-striped">
  <tr><th>Name</th><th>Colour</th><th>Last build time</th><th>Health report</th></tr>
```{r jenkins_j_table, eval=T, echo=FALSE, message=FALSE, results='asis'}
t <- apply(head(x = data, n = 10), 1,
		   function(x) paste(' <tr><td><a href="', trimws(x[[15]]), '">', trimws(x[[1]]), '</a></td><td>', 
		                     trimws(x[[3]]), '</a></td><td>', trimws(x[[5]]), '</a></td><td>', 
		                     trimws(x[[14]]), '</td></tr>', sep=''))
t <- paste(t, collapse=" ")
cat(t)
```
</table>

```{r jenkins_j_plot, echo=FALSE, message=FALSE, results='asis'}
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

data.table <- as.data.frame(table(data$color))
names(data.table) <- c('Result', 'Count')

data.table$Colour <- '#D3D3D3'

data.table[data.table$Result == "red", c('Colour')] <- '#DC3912'
data.table[data.table$Result == "blue", c('Colour')] <- '#109618'
data.table[data.table$Result == "yellow", c('Colour')] <- '#FF9900'

p <- gvisPieChart(data.table[,c('Result', 'Count')],
              options = list(
                title=paste("Job Results for project ", project_id, " ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                colors=paste('["', paste(data.table$Colour, collapse = '", "', sep=""), '"]', collapse = '", "', sep=""),
                pieHole= 0.4))

print(p, 'chart')
```