remove navigation symbols

[debbugs-presentations.git] / debbugs.Rnw

diff --git a/debbugs.Rnw b/debbugs.Rnw
index d04bf671503f91248a31bc975c05cf6c577c2ecb..973de093c25723cfaa1977c12e7460d6c14508b6 100644 (file)
--- a/debbugs.Rnw
+++ b/debbugs.Rnw
@@ -11,6 +11,11 @@
 \usepackage{wrapfig}
 \usepackage{fancybox}
 \usepackage{booktabs}
+\usepackage{minted}
+\usepackage{tcolorbox}
+\usepackage{etoolbox}
+\BeforeBeginEnvironment{minted}{\begin{tcolorbox}}%
+\AfterEndEnvironment{minted}{\end{tcolorbox}}%
 % \usepackage{multirow}
 \usepackage{acronym}
 \usepackage{qrcode}
@@ -33,6 +38,7 @@
 %  \setbeamercovered{transparent}  
 }
 
+\setbeamertemplate{navigation symbols}{}%remove navigation symbols
 
 \usepackage[nomargin,inline,draft]{fixme}
 \usepackage{listings}
@@ -43,9 +49,9 @@
     \end{tikzpicture}}
 \author{Don Armstrong}
 \title{Debbugs}
-\subtitle{Database Ho!}
-%\date{August 11th, 2008}
-\titlegraphic{\includegraphics[height=0.3\textheight,keepaspectratio]{figures/openlogo-crop.pdf}}
+\subtitle{22 Years of Bugs}
+\date{August 10th, 2017}
+\titlegraphic{\includegraphics[height=0.2\textheight,keepaspectratio]{figures/openlogo-crop.pdf}}
 \subject{BTS}
 
 % State of the BTS: new features, changes and tips
@@ -73,16 +79,16 @@
 %    - release to experimental
 
 
-<<load.libraries,echo=FALSE,results="hide",error=FALSE,message=FALSE>>=
+<<load.libraries,echo=FALSE,results="hide",error=FALSE,message=FALSE,cache=FALSE>>=
 library(lattice)
 library(xtable)
 library(ggplot2)
 library("scales")
 library(reshape2)
 library("data.table")
-opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.8\\textheight",out.extra="keepaspectratio",fig.width=6,fig.height=4)
+opts_chunk$set(dev="cairo_pdf",out.width="\\textwidth",out.height="0.8\\textheight",out.extra="keepaspectratio",fig.width=6/1.2,fig.height=4/1.2)
 opts_chunk$set(cache=TRUE, autodep=TRUE)
-options(device = function(file, width = 6, height = 4, ...) {
+options(device = function(file, width = 6/1.2, height = 4/1.2, ...) {
   cairo_pdf(tempfile(), width = width, height = height, ...)
 })
 
@@ -99,7 +105,10 @@ scientific_10 <- function(x) {
 %\setbeamercolor{frametitle}[bg=-red!90!green!10,fg=black]
 
 \frame[plain]{\titlepage
-  Source available at \url{http://git.donarmstrong.com/debbugs-presentations.git}
+  Code and slides are here: 
+  \qrcode[padding]{https://dla2.us/p/debbugs2017}
+  \url{https://dla2.us/p/debbugs2017}
+
 }
 
 % \begin{frame}{Debbugs}
@@ -113,8 +122,7 @@ scientific_10 <- function(x) {
   \begin{columns}
     \column{0.5\textwidth}
     \begin{itemize}
-    \item Bug Statitics
-    \item Introduction to Debbugs
+    \item Bug Statistics
     \item New features
     \item Planned features
     \item Places you can help
@@ -145,10 +153,16 @@ scientific_10 <- function(x) {
 bug.growth <- fread("data/sorted_bug_growth_for_r_every_500.txt")
 colnames(bug.growth) <- c("time","bugs")
 bug.growth <- bug.growth[pmax(bugs) <= as.numeric(bugs),]
+bug.growth <- bug.growth[order(time),]
+bug.growth <-
+    bug.growth[c(0,diff(bugs))>=0,]
 bug.growth[,date:=
                 as.POSIXct(ISOdatetime(1970,1,1,0,0,0)+
                            as.numeric(bug.growth$time))]
-print(ggplot(bug.growth[date > as.POSIXct(ISOdatetime(2005,1,1,0,0,0)),],
+bug.growth[,`bugs per day`:=c(0,diff(bugs)/
+                                as.double(diff(date),"days"))
+           ]
+print(ggplot(bug.growth,#[date > as.POSIXct(ISOdatetime(2005,1,1,0,0,0)),],
              aes(x=date,y=bugs))+
       xlab("Time")+ylab("Bugs filed in Debian")+
       scale_y_continuous(labels = scientific_10)+
@@ -157,7 +171,20 @@ print(ggplot(bug.growth[date > as.POSIXct(ISOdatetime(2005,1,1,0,0,0)),],
 \end{center}
 \end{frame}
 
-\begin{frame}
+\begin{frame}{Bug Growth Rate}
+<<bug_growth_rate,echo=FALSE>>=
+print(ggplot(bug.growth[date > as.POSIXct(ISOdatetime(2014,1,1,0,0,0)),],
+             aes(x=date,y=`bugs per day`))+
+      xlab("Time")+ylab("Bugs filed per day")
+      + scale_y_log10(breaks=c(60,100,200,400,800))
+      + geom_line()+stat_smooth(method="lm")
+      + geom_label(data=data.table(date=as.POSIXct(ISOdatetime(2015,04,25,0,0,0)),"bugs per day"=400),label="Jessie",color="red")
+      + geom_label(data=data.table(date=as.POSIXct(ISOdatetime(2017,06,17,0,0,0)),"bugs per day"=400),label="Stretch",color="purple")
+      )
+@ 
+\end{frame}
+
+\begin{frame}{My entries into Cristian's game}
   \begin{columns}
     \column{0.5\textwidth}
   \begin{center}
@@ -313,15 +340,15 @@ print(ggplot(rc.bugs.long[date >
   % SQL loading
   \begin{itemize}
   \item Load bugs
-\begin{lstlisting}[language=sh]
+\begin{minted}{sh}
 debbugs-loadsql bugs;
 debbugs-loadsql bugs archive;
-\end{lstlisting}
+\end{minted}
   \item Load Versioning information
-\begin{lstlisting}[language=sh]
+\begin{minted}{sh}
 debbugs-loadsql versions;
 debbugs-loadsql debinfo;
-\end{lstlisting}
+\end{minted}
   \end{itemize}
 \end{frame}