Skip to Content

modeling.sirius

About this document

This document is a R notebook, dynamically created from the numbers extracted on the project. It lists all datasets published for the project, providing basic numbers, figures and a quick summary, and serves as a test case to make sure that all the required data is present and roughly consistent with requirements. All plots and tables are computed from the actual data as provided in the downloads.

To re-execute the document, simply start a R session, load rmarkdown and render the page with the project ID as a parameter:

require('rmarkdown')
render("datasets_report.Rmarkdown", params = list(project_id = "modeling.sirius"), output_format="html_document")

This website uses the blogdown R package, which provides a different output_format for the hugo framework.

This report was generated on 2022-08-14.

Downloads

All data is retrieved from Alambic, an open-source framework for development data extraction and processing.

This project’s analysis page can be found on the Alambic instance for the Eclipse forge, at https://eclipse.alambic.io/projects/modeling.sirius.

Downloads are composed of gzip’d CSV and JSON files. CSV files always have a header to name the fields, which makes it easy to import in analysis software like R:

data <- read.csv(file='myfile.csv', header=T)
names(data)

List of datasets generated for the project:

  • Git
    • Git Commits (CSV) – Full list of commits with id, message, time, author, committer, and added, deleted and modifed lines.
    • Git Commits Evol (CSV) – Evolution of number of commits and authors by day.
    • Git Log (TXT) – the raw export of git log.
  • Bugzilla
  • Eclipse Forums
    • Forums Posts (CSV) – list of all forum posts for this project.
    • Forums threads (CSV) – list of all forum threads for this project.
  • Jenkins CI
  • Eclipse PMI
    • PMI Checks (CSV) – list of all checks applied to the Project Management Infrastructure entries for the project.
  • ScanCode

Git

Git commits

Download: git_commits_evol.csv.gz

data <- read.csv(file=file_git_commits_evol, header=T)

File is git_commits_evol.csv, and has 3 columns for 1517 entries.

data$commits_sum <- cumsum(data$commits)
data.xts <- xts(x = data[,c('commits_sum', 'commits', 'authors')], order.by=as.POSIXct(as.character(data[,c('date')]), format="%Y-%m-%d"))

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, all=T)
merged.data[is.na(merged.data) == T] <- 0

p <-dygraph(merged.data[,c('commits')],
        main = paste('Daily commits for ', project_id, sep=''),
        width = 800, height = 250 ) %>%
      dyRangeSelector()
p


Git log

Download: git_log.txt.gz

File is git_log.txt, and full log has 68555 lines.


Bugzilla

Bugzilla issues

Download: bugzilla_issues.csv.gz

data <- read.csv(file=file_bz_issues, header=T)

File is bugzilla_issues.csv, and has 17 columns for 2863 issues.

Bugzilla open issues

Download: bugzilla_issues_open.csv.gz

data <- read.csv(file=file_bz_issues_open, header=T)

File is bugzilla_issues_open.csv, and has 17 columns for 902 issues (all open).

Bugzilla evolution

Download: bugzilla_evol.csv.gz

data <- read.csv(file=file_bz_evol, header=T)

File is bugzilla_evol.csv, and has 3 columns for 1283 weeks.

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

Versions

Download: bugzilla_versions.csv.gz

data <- read.csv(file=file_bz_versions, header=T)

File is bugzilla_versions.csv, and has 2 columns for 47 weeks.

Components

Download: bugzilla_components.csv.gz

data <- read.csv(file=file_bz_components, header=T)

File is bugzilla_components.csv, and has 2 columns for 9 weeks.

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)

Eclipse Forums

Forums posts

Download: eclipse_forums_posts.csv.gz

data <- read.csv(file=file_forums_posts, header=T)

File is eclipse_forums_posts.csv, and has 6 columns for 8508 posts. The evolution of posts

data$created.date <- as.POSIXct(data$created_date, origin="1970-01-01")
posts.xts <- xts(data, order.by = data$created.date)

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

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

posts.weekly <- apply.weekly(x=merged.data, FUN = nrow)
names(posts.weekly) <- c("posts")

p <- dygraph(
  data = posts.weekly[-1,],
  main = paste('Weekly forum posts for ', project_id, sep=''),
  width = 800, height = 250 ) %>%
  dyAxis("x", drawGrid = FALSE) %>%
  dySeries("posts", label = "Weekly posts") %>%
  dyOptions(stepPlot = TRUE) %>%
  dyRangeSelector()
p

The list of the 10 last active posts on the forums:

data$created.date <- as.POSIXct(data$created_date, origin="1970-01-01")
posts.table <- head(data[,c('id', 'subject', 'created.date', 'author_id')], 10)
posts.table$subject <- paste('<a href="', posts.table$html_url, '">', posts.table$subject, '</a>', sep='')
posts.table$created.date <- as.character(posts.table$created.date)
names(posts.table) <- c('ID', 'Subject', 'Post date', 'Post author')

print(
    xtable(head(posts.table, 10),
        caption = paste('10 most recent posts on', project_id, 'forum.', sep=" "),
        digits=0, align="lllll"), type="html",
    html.table.attributes='class="table table-striped"',
    caption.placement='bottom',
    include.rownames=FALSE,
    sanitize.text.function=function(x) { x }
)
10 most recent posts on modeling.sirius forum.
ID Subject Post date Post author
1854317 Sirius Web backend build failing in terminal 2022-08-13 03:48:22 232755
1854310 Re: Validation markers on children represented as ‘list’ 2022-08-12 13:38:43 86090
1854295 Validation markers on children represented as ‘list’ 2022-08-11 09:07:04 86090
1854249 Re: Sirius Web add a java service 2022-08-09 07:43:34 224945
1854247 Re: Sirius Web add a java service 2022-08-09 06:37:21 49151
1854194 Sirius Web add a java service 2022-08-05 12:35:42 224945
1854186 Re: Reconnect tool Precondition : I can’t access to otherEnd and edgeView variables 2022-08-05 07:30:29 49151
1854185 \[ANN\] Sirius 7.0.2 2022-08-05 07:30:01 49151
1854182 Re: Sync font styling for all nodes in a container 2022-08-05 06:14:05 218022
1854158 Re: Sync font styling for all nodes in a container 2022-08-03 22:49:27 67797


Forums threads

Download: eclipse_forums_threads.csv.gz

data <- read.csv(file=file_forums_threads, header=T)

File is eclipse_forums_threads.csv, and has 8 columns for 2567 threads. A wordcloud with the main words used in threads is presented below.

The list of the 10 last active threads on the forums:

data$last.post.date <- as.POSIXct(data$last_post_date, origin="1970-01-01")
threads.table <- head(data[,c('id', 'subject', 'last.post.date', 'last_post_id', 'replies', 'views')], 10)
threads.table$subject <- paste('<a href="', threads.table$html_url, '">', threads.table$subject, '</a>', sep='')
threads.table$last.post.date <- as.character(threads.table$last.post.date)
names(threads.table) <- c('ID', 'Subject', 'Last post date', 'Last post author', 'Replies', 'Views')

print(
    xtable(threads.table,
        caption = paste('10 last active threads on', project_id, 'forum.', sep=" "),
        digits=0, align="lllllll"), type="html",
    html.table.attributes='class="table table-striped"',
    caption.placement='bottom',
    include.rownames=FALSE,
    sanitize.text.function=function(x) { x }
)
10 last active threads on modeling.sirius forum.
ID Subject Last post date Last post author Replies Views
1111411 Sirius Web backend build failing in terminal 2022-08-13 03:48:22 1854317 0 962
1111398 Validation markers on children represented as ‘list’ 2022-08-12 13:38:43 1854310 1 980
1111370 Sirius Web add a java service 2022-08-09 07:43:34 1854249 2 808
1111365 \[ANN\] Sirius 7.0.2 2022-08-05 07:30:01 1854185 0 1129
1111328 Sync font styling for all nodes in a container 2022-08-05 06:14:05 1854182 2 2107
1111326 Documentation on the DiagramCreationTool in the Viewpoint Specification Editor 2022-07-29 23:43:26 1854060 1 107
1111304 Sirius Web automatic layout 2022-07-27 09:24:06 1853995 0 2371
1111302 Setting somethings in semantic model during validation 2022-07-27 08:15:12 1853991 0 2482
1111297 Sirius web front end 2022-07-26 14:27:23 1853976 1 542
1111293 Using ELK layouts in a Sirius based product 2022-07-26 17:12:24 1853980 2 985

Jenkins

Builds

Download: jenkins_builds.csv.gz

data <- read.csv(file=file_jenkins_builds, header=T)

File is jenkins_builds.csv, and has 7 columns for 182 commits.

ID Name Time Result
3 repository-analyzer \#3 1.567507e+12 SUCCESS
2 repository-analyzer \#2 1.567506e+12 SUCCESS
1 repository-analyzer \#1 1.567504e+12 FAILURE
2013-12-10\_10-58-47 sirius-0.9.x \#14 1.386691e+12 SUCCESS
2015-01-27\_04-30-55 sirius-1.0.x \#37 1.422351e+12 SUCCESS
2014-08-12\_09-13-44 sirius-1.0.x \#30 1.407849e+12 SUCCESS
2017-01-24\_07-51-04 sirius-2.0.x \#77 1.485262e+12 SUCCESS
2016-11-29\_00-01-55 sirius-2.0.x \#75 1.480396e+12 SUCCESS
2015-06-12\_09-25-29 sirius-2.0.x \#65 1.434116e+12 SUCCESS
2015-03-31\_00-01-24 sirius-2.0.x \#56 1.427774e+12 SUCCESS


Jobs

Download: jenkins_jobs.csv.gz

data <- read.csv(file=file_jenkins_jobs, header=T)

File is jenkins_jobs.csv, and has 15 columns for 43 commits.

Name Colour Last build time Health report
repository-analyzer blue 1.567507e+12 66
sirius-0.9.x disabled 1.386691e+12 100
sirius-1.0.x disabled 1.422351e+12 100
sirius-2.0.x disabled 1.485262e+12 100
sirius-3.0.x disabled 1.442303e+12 100
sirius-3.1.3.100-x disabled 1.457086e+12 100
sirius-3.1.x disabled 1.516050e+12 100
sirius-4.0.x disabled 1.516050e+12 100
sirius-4.1.x disabled 1.538568e+12 100
sirius-5.0.x disabled 1.517495e+12 100


PMI

PMI Checks

Download: eclipse_pmi_checks.csv.gz

data <- read.csv(file=file_pmi_checks, header=T)

File is eclipse_pmi_checks.csv, and has 3 columns for 17 commits.

checks.table <- head(data[,c('Description', 'Value', 'Results')], 10)

print(
    xtable(checks.table,
        caption = paste('Extract of the 10 first PMI checks for ', 
                        project_id, '.', sep=" "),
        digits=0, align="llll"), type="html",
    html.table.attributes='class="table table-striped"',
    caption.placement='bottom',
    include.rownames=FALSE,
    sanitize.text.function=function(x) { x }
)
Extract of the 10 first PMI checks for modeling.sirius .
Description Value Results
Checks if the URL can be fetched using a simple get query. https://bugs.eclipse.org/bugs/enter\_bug.cgi?product=Sirius OK: Create URL could be successfully fetched.
Checks if the URL can be fetched using a simple get query. https://bugs.eclipse.org/bugs/buglist.cgi?product=Sirius OK: Query URL could be successfully fetched.
Sends a get request to the given CI URL and looks at the headers in the response (200 404..). Also checks if the URL is really a Hudson instance (through a call to its API). https://ci.eclipse.org/sirius/ OK. Fetched CI URL.\\OK. CI URL is a Hudson instance. Title is \[built-in\]
Checks if the Dev ML URL can be fetched using a simple get query. https://dev.eclipse.org/mailman/listinfo/sirius-dev OK: Dev ML URL could be successfully fetched.
Checks if the URL can be fetched using a simple get query. http://www.eclipse.org/sirius/doc OK: Documentation URL could be successfully fetched.
Checks if the URL can be fetched using a simple get query. http://www.eclipse.org/sirius/download.html OK: Download URL could be successfully fetched.
Checks if the Forums URL can be fetched using a simple get query. http://eclipse.org/forums/eclipse.sirius OK. Forum \[Sirius Forum\] correctly defined.\\OK: Forum \[Sirius Forum\] URL could be successfully fetched.
Checks if the URL can be fetched using a simple get query. http://wiki.eclipse.org/Sirius/Getting\_Started OK: Documentation URL could be successfully fetched.
Checks if the Mailing lists URL can be fetched using a simple get query. https://dev.eclipse.org/mailman/listinfo/sirius-dev OK. \[sirius-dev\] ML correctly defined with email.\\OK: \[sirius-dev\] ML URL could be successfully fetched.
Checks if the URL can be fetched using a simple get query. Failed: no URL defined for plan.

ScanCode

Authors

Download: scancode_authors.csv.gz

data <- read.csv(file=file_sc_authors, header=T)

File is scancode_authors.csv, and has 2 columns for 47 commits.

Author Count
unknown 14563
Matthew Hall 61
Florian Barbin 55
Cedric Brun 29
Mariot Chauvin 24
Ve1kF5ABSpZ16nkl@Gl4efA877jUU1X6s 19
Laurent Redor 14
www.obeo.fr 6
Laurent Goubet 4
Maxime Porhel 3
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

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

p <- gvisPieChart(data.sorted,
              options = list(
                title=paste("Authors for project `r project_id` ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                pieHole= 0.4))

print(p, 'chart')


Copyrights

Download: scancode_copyrights.csv.gz

data <- read.csv(file=file_sc_copyrights, header=T)

File is scancode_copyrights.csv, and has 2 columns for 26 commits.

Copyrights Count
unknown 5628
Copyright (c) THALES GLOBAL 5131
Copyright (c) Obeo 2577
Copyright (c) THALES GLOBAL SERVICES and others 917
Copyright (c) THALES GLOBAL SERVICES 422
Copyright (c) Obeo and others 295
Copyright (c) TypeFox and others 207
Copyright (c) Facebook, Inc. 84
Copyright (c) IBM Corporation and others 78
Copyright (c) Matthew Hall and others 73
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

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

p <- gvisPieChart(data.sorted,
              options = list(
                title=paste("Copyrights for project `r project_id` ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                pieHole= 0.4))

print(p, 'chart')


Holders

Download: scancode_holders.csv.gz

data <- read.csv(file=file_sc_holders, header=T)

File is scancode_holders.csv, and has 2 columns for 26 commits.

Holders Count
unknown 5630
THALES GLOBAL 5129
Obeo 2577
THALES GLOBAL SERVICES and others 917
THALES GLOBAL SERVICES 424
Obeo and others 295
TypeFox and others 207
Facebook, Inc. 84
IBM Corporation and others 78
Matthew Hall and others 73
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

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

p <- gvisPieChart(data.sorted,
              options = list(
                title=paste("Holders for project `r project_id` ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                pieHole= 0.4))

print(p, 'chart')


Licences

Download: scancode_licences.csv.gz

data <- read.csv(file=file_sc_licences, header=T)

File is scancode_licences.csv, and has 2 columns for 16 commits.

Licence Count
epl-2.0 9345
epl-2.0 OR apache-2.0 9321
unknown 5484
epl-1.0 411
apache-2.0 217
mit 91
bsd-new 4
bsd-new AND facebook-patent-rights-2 4
epl-2.0 OR apache-2.0 OR (gpl-2.0 WITH classpath-exception-2.0 AND gpl-2.0 WITH openjdk-exception) 4
unknown 2
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

p <- gvisPieChart(data,
              options = list(
                title=paste("Licences for project `r project_id` ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                pieHole= 0.4))

print(p, 'chart')


Programming Languages

Download: scancode_programming_languages.csv.gz

data <- read.csv(file=file_sc_pl, header=T)

File is scancode_licences.csv, and has 2 columns for 11 commits.

Programming Language Count
Java 8512
unknown 6001
HTML 189
Objective-C 46
PHP 21
Python 20
Bash 10
CSS 7
JavaScript 6
Perl 4
suppressPackageStartupMessages(library(googleVis))
options(gvis.plot.tag='chart')

p <- gvisPieChart(data,
              options = list(
                title=paste("Programming languages for project `r project_id` ", sep=""),
                sliceVisibilityThreshold=0, height=280,
                pieHole= 0.4))

print(p, 'chart')


Special files

Download: scancode_special_files.csv.gz

data <- read.csv(file=file_sc_sf, header=T)

File is scancode_special_files.csv, and has 2 columns for 347 commits.

Holders Type
LICENSE legal
NOTICE legal
pom.xml manifest
README.md readme
packaging/org.eclipse.sirius.aql/pom.xml manifest
packaging/org.eclipse.sirius.diagram.elk.feature/pom.xml manifest
packaging/org.eclipse.sirius.diagram.elk.sdk.feature/pom.xml manifest
packaging/org.eclipse.sirius.doc.feature/pom.xml manifest
packaging/org.eclipse.sirius.headless.update/pom.xml manifest
packaging/org.eclipse.sirius.interpreter.feature/pom.xml manifest