From 08ba242ed7029a6b1390545db77f2b0e791e10a6 Mon Sep 17 00:00:00 2001
From: Dragos Bandur <39677929+drag05@users.noreply.github.com>
Date: Fri, 29 Jan 2021 13:56:08 -0500
Subject: [PATCH] Use `data.table` to shorten the code

This is an example how the use of `data.table` package could help avoid code overhead. This is my first pull request so, I will keep it short.
---
 vignettes/set.metadata.plots.R | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/vignettes/set.metadata.plots.R b/vignettes/set.metadata.plots.R
index 924de8c..aa50b7f 100644
--- a/vignettes/set.metadata.plots.R
+++ b/vignettes/set.metadata.plots.R
@@ -1,18 +1,12 @@
 ## ---- tidy=TRUE----------------------------------------------------------
 library(UpSetR)
-movies <- read.csv( system.file("extdata", "movies.csv", package = "UpSetR"), header=T, sep=";" )
+library(data.table)
+movies <- fread( system.file("extdata", "movies.csv", package = "UpSetR"), sep=";" )
 
 ## ---- tidy=TRUE----------------------------------------------------------
-sets <- names(movies[3:19])
+sets <- names(movies)[3:19]
 avgRottenTomatoesScore <- round(runif(17, min=0, max = 90))
-metadata <- as.data.frame(cbind(sets, avgRottenTomatoesScore))
-names(metadata) <- c("sets", "avgRottenTomatoesScore")
-
-## ---- tidy=TRUE----------------------------------------------------------
-is.numeric(metadata$avgRottenTomatoesScore)
-
-## ---- tidy=TRUE----------------------------------------------------------
-metadata$avgRottenTomatoesScore <- as.numeric(as.character(metadata$avgRottenTomatoesScore))
+metadata <- data.table(sets, avgRottenTomatoesScore)
 
 ## ---- fig.width=9, fig.height=5,out.width="850px", tidy=TRUE, fig.align='center'----
 upset(movies, set.metadata = list(data = metadata, plots = list(list(type="hist", column="avgRottenTomatoesScore", assign=20))))