improved sut table

Author: arcuri82

statistics/analyze.R

@@ -64,7 +64,7 @@ markdown <- function (){
 }
 
 
-latex <- function(TABLE,SUTS,auth){
+latex <- function(TABLE,SUTS,auth, databases){
 
   # TODO what columns to include further could be passed as boolean selection.
   # will implement when needed
@@ -76,9 +76,15 @@ latex <- function(TABLE,SUTS,auth){
   unlink(TABLE)
   sink(TABLE, append = TRUE, split = TRUE)
 
-  cat("\\begin{tabular}{l rrrr}\\\\ \n")
+  cat("\\begin{tabular}{l rrr")
+  if(auth) cat("r")
+  if(databases) cat("r")
+  cat("}\\\\ \n")
   cat("\\toprule \n")
-  cat("SUT & \\#SourceFiles & \\#LOCs & \\#Endpoints & Auth\\\\ \n")
+  cat("SUT & \\#SourceFiles & \\#LOCs & \\#Endpoints ")
+  if(auth) cat("& Auth")
+  if(databases) cat("& Databases")
+  cat("\\\\ \n")
   cat("\\midrule \n")
 
   for (i in 1:nrow(dt)){
@@ -90,9 +96,14 @@ latex <- function(TABLE,SUTS,auth){
     cat(" & ", row$LOCS)
     cat(" & ", row$ENDPOINTS)
 
-    cat(" & ")
-    if(row$AUTHENTICATION){
+    if(auth){
+      cat(" & ")
+      if(row$AUTHENTICATION){
           cat("\\checkmark")
+      }
+    }
+    if(databases){
+      cat(" & ",row$DATABASE)
     }
 
     cat(" \\\\ \n")
@@ -106,8 +117,14 @@ latex <- function(TABLE,SUTS,auth){
   cat(sum(dt$LOCS))
   cat(" & ")
   cat(sum(dt$ENDPOINTS))
-  cat(" & ")
-  cat(sum(dt$AUTHENTICATION))
+  if(auth){
+    cat(" & ")
+    cat(sum(dt$AUTHENTICATION))
+  }
+  if(databases){
+    cat(" & ")
+    cat(sum(!is.na(dt$DATABASE) & trimws(dt$DATABASE) != ""))
+  }
 
   cat(" \\\\ \n")
 

statistics/data.csv

@@ -28,7 +28,7 @@ TRUE,restcountries,REST,Java,JDK 8,Maven,24,1977,,MPL,22,FALSE,https://github.co
 TRUE,scout-api,REST,Java,JDK 8,Maven,93,9736,H2,MIT,49,TRUE,https://github.com/mikaelsvensson/scout-api
 TRUE,spring-actuator-demo,REST,Java,JDK 8,Maven,5,117,,UNDEFINED,2,TRUE,https://github.com/callicoder/spring-boot-actuator-demo
 TRUE,spring-batch-rest,REST,Java,JDK 8,Maven,65,3668,,Apache,5,FALSE,https://github.com/chrisgleissner/spring-batch-rest
-TRUE,spring-ecommerce,REST,Java,JDK 8,Maven,58,2223,MongoOB;Redis;Elasticsearch,UNDEFINED,26,TRUE,https://github.com/SaiUpadhyayula/SpringAngularEcommerce
+TRUE,spring-ecommerce,REST,Java,JDK 8,Maven,58,2223,MongoDB;Redis;Elasticsearch,UNDEFINED,26,TRUE,https://github.com/SaiUpadhyayula/SpringAngularEcommerce
 TRUE,spring-rest-example,REST,Java,JDK 17,Maven,32,1426,MySQL,MIT,9,FALSE,https://github.com/phantasmicmeans/spring-boot-restful-api-example
 TRUE,swagger-petstore,REST,Java,JDK 8,Maven,23,1631,,Apache,19,FALSE,https://github.com/swagger-api/swagger-petstore
 TRUE,genome-nexus,REST,Java,JDK 8,Maven,405,30004,MongoDB,MIT,23,FALSE,https://github.com/genome-nexus/genome-nexus

statistics/suts.R

@@ -61,6 +61,6 @@ suts <- function(){
     ""
   )
 
-  latex(TABLE,SUTS)
+  latex(TABLE,SUTS,TRUE,TRUE)
 }