----

## <a name="bz"></a> Bugzilla

### <a name="bz_issues"></a> Bugzilla issues

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

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

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


### <a name="bz_issues_open"></a> Bugzilla open issues

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

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

File is [``r file_bz_issues_open``](../`r file_bz_issues_open`.gz), and has ``r ncol(data)`` columns for ``r nrow(data)`` issues (all open).


### <a name="bz_evol"></a> Bugzilla evolution

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

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

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

Let's try to plot the monthly number of submissions for the project:

```{r bz_evol_viz, echo=FALSE}
data.xts <- xts(x = data, order.by = as.POSIXct(data$date))

time.min <- index(data.xts[1,])
time.max <- index(data.xts[nrow(data.xts)])
all.dates <- seq(time.min, time.max, by="days")
empty <- xts(order.by = all.dates)

merged.data <- merge(empty, data.xts$issues_created, all=T)
merged.data[is.na(merged.data) == T] <- 0

data.monthly <- apply.monthly(x=merged.data, FUN = sum)

p <-dygraph(data.monthly[-1,1],
        main = paste('Monthly issues submissions for ', project_id, sep=''),
        width = "750px", height = 250 ) %>%
      dyRangeSelector()
p
```


### Versions

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

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

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

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

data.sorted <- data[order(data$Bugs, decreasing = T),]

g <- gvisColumnChart(data.sorted, options=list(title='List of product versions', legend="{position: 'none'}", width="automatic", height="300px"))
plot(g)
```


### Components

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

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

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

```{r bz_components_viz, echo=T, message=FALSE, results='asis'}
data.sorted <- data[order(data$Bugs, decreasing = T),]

g <- gvisColumnChart(data.sorted, options=list(title='List of product components', legend="{position: 'none'}", width="automatic", height="300px"))
plot(g)
```