----
## SonarQube
### SonarQube blocker issues
**Download**: [`r file_sq_issues_blocker`.gz](../`r file_sq_issues_blocker`.gz)
```{r sq_issues_blocker}
data <- read.csv(file=file_sq_issues_blocker, header=T)
```
File is [``r file_sq_issues_blocker``](../`r file_sq_issues_blocker`), and has ``r ncol(data)`` columns for ``r nrow(data)`` issues.
```{r sq_issues_blocker_table, results='asis'}
data$last.update <- as.POSIXct(data$last_update, origin="1970-01-01")
issues.table <- head(data[,c('key', 'rule', 'sev', 'last.update', 'message')], 10)
issues.table$last.update <- as.character(issues.table$last.update)
names(issues.table) <- c('Key', 'Rule', 'Severity', 'Last update', 'Message')
print(
xtable(issues.table,
caption = paste('Extract of 10 SonarQube blocker issues for ',
project_id, '.', sep=" "),
digits=0, align="llllll"), type="html",
html.table.attributes='class="table table-striped"',
caption.placement='bottom',
include.rownames=FALSE,
sanitize.text.function=function(x) { x }
)
```
### SonarQube critical issues
**Download**: [`r file_sq_issues_critical`.gz](../`r file_sq_issues_critical`.gz)
```{r sq_issues_critical}
data <- read.csv(file=file_sq_issues_critical, header=T)
```
File is [``r file_sq_issues_critical``](../`r file_sq_issues_critical`), and has ``r ncol(data)`` columns for ``r nrow(data)`` issues.
### SonarQube major issues
**Download**: [`r file_sq_issues_major`.gz](../`r file_sq_issues_major`.gz)
```{r sq_issues_major}
data <- read.csv(file=file_sq_issues_major, header=T)
```
File is [``r file_sq_issues_major``](../`r file_sq_issues_major`), and has ``r ncol(data)`` columns for ``r nrow(data)`` issues.
### SonarQube metrics
**Download**: [`r file_sq_metrics`.gz](../`r file_sq_metrics`.gz)
```{r sq_metrics}
data <- read.csv(file=file_sq_metrics, header=T)
```
File is [``r file_sq_metrics``](../`r file_sq_metrics`), and has ``r ncol(data)`` columns for ``r nrow(data)`` line.
```{r sq_metrics_table, results='asis'}
# Transform from wide to long format.
data <- t(data)
data_ <- data.frame(rownames(data), data[,1])
names(data_) <- c('Metric', 'Value')
# Remove NAs
data_ <- data_[complete.cases(data_$Value),]
print(
xtable(data_,
caption = paste('SonarQube metrics for ',
project_id, '.', sep=" "),
digits=0, align="lll"), type="html",
html.table.attributes='class="table table-striped"',
caption.placement='bottom',
include.rownames=FALSE,
sanitize.text.function=function(x) { x }
)
```