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 2021-04-25.

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 2757 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 876 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 1207 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 42 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 7864 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
1840704 Re: Element Based Edge in one editor across different metamodels 2021-04-22 08:56:17 49151
1840701 Re: creation tools are not working 2021-04-22 08:46:32 49151
1840700 Re: Extending an installed diagram 2021-04-22 08:42:11 49151
1840662 Re: Element Based Edge in one editor across different metamodels 2021-04-21 14:39:23 228437
1840653 Extending an installed diagram 2021-04-21 11:38:18 229200
1840643 Re: Element Based Edge in one editor across different metamodels 2021-04-21 09:29:53 49151
1840510 Element Based Edge in one editor across different metamodels 2021-04-16 20:49:25 228437
1840215 Re: creation tools are not working 2021-04-08 21:51:40 231634
1840194 Re: creation tools are not working 2021-04-08 12:18:58 228620
1840140 creation tools are not working 2021-04-07 10:09:33 231634


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 2357 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
1107745 Extending an installed diagram 2021-04-22 08:42:11 1840700 1 399
1107704 Element Based Edge in one editor across different metamodels 2021-04-22 08:56:17 1840704 3 925
1107591 creation tools are not working 2021-04-22 08:46:32 1840701 3 579
1107568 SiriusCon Live 2021: save the date! 2021-04-06 07:45:42 1840049 0 1092
1107538 Sirius Web tutorial 2021-04-01 10:08:57 1839924 0 1106
1107525 “This Diagram may need to be refreshed before opening. Would you like to refresh it now?” 2021-04-01 13:11:50 1839939 1 274
1107375 How to instantiate timelines in a sequence diagram using customised classes (from matamodel) 2021-03-29 08:24:08 1839790 3 1296
1107349 \[ANN\] Sirius 6.4.2 2021-03-18 08:53:45 1839247 0 1268
1107334 Error in last commit in Sirius Web Master 2021-03-18 08:35:05 1839246 2 297
1107308 Centering the text of a container’s label 2021-03-23 09:04:02 1839521 1 1359

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 223 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 38 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 \[master\]
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
OnSPYmV0Eff7B815@Q70vcFthtWQooaDk 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 ", 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 ", 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 ", 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 ", 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 ", 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