appendex A running

TODO: close DB connection in appendix A example

CodeExamples/x0A_Working_with_R_and_other_tools/00226_informalexample_A.1_of_section_A.1.5.R

@@ -1,7 +1,7 @@
 # informalexample A.1 of section A.1.5 
 # (informalexample A.1 of section A.1.5)  : Working with R and other tools : Installing the tools : R resources 
 
-install.packages('ctv')
+install.packages('ctv',repos='https://cran.r-project.org')
 library('ctv')
-install.views('TimeSeries')
+# install.views('TimeSeries') # can take a LONG time
 

CodeExamples/x0A_Working_with_R_and_other_tools/00228_informalexample_A.2_of_section_A.2.1.R

@@ -5,5 +5,5 @@ x <- 2
 x < - 3
 ## [1] FALSE
 print(x)
-[1] 2
+## [1] 2
 

CodeExamples/x0A_Working_with_R_and_other_tools/00239_example_A.9_of_section_A.2.3.R

@@ -4,11 +4,11 @@
 
 require(RCurl) 	# Note: 1 
 urlBase <- 
-  'https://raw.github.com/WinVector/zmPDSwR/master/' 	# Note: 2 
+  'https://raw.githubusercontent.com/WinVector/zmPDSwR/master/' 	# Note: 2 
 mkCon <- function(nm) { 	# Note: 3 
-   textConnection(getURL(paste(urlBase,nm,sep='')))
+   textConnection(getURL(paste(urlBase,nm,sep='/')))
 }
-cars <- read.table(mkCon('UCICar/car.data.csv'), 	# Note: 4 
+cars <- read.table(mkCon('car.data.csv'), 	# Note: 4 
     sep=',',header=T,comment.char='')
 
 # Note 1: 

CodeExamples/x0A_Working_with_R_and_other_tools/00240_example_A.10_of_section_A.3.2.R

@@ -2,11 +2,10 @@
 # (example A.10 of section A.3.2)  : Working with R and other tools : Using databases with R : Starting with SQuirreL SQL 
 # Title: Reading database data into R 
 
-install.packages('RJDBC')  	# Note: 1 
+install.packages('RJDBC',repos='https://cran.r-project.org')  	# Note: 1 
 library('RJDBC') 	# Note: 2 
 drv <- JDBC("org.h2.Driver","h2-1.3.170.jar",identifier.quote="'") 	# Note: 3 
-setwd('/Users/johnmount/Downloads')
-conn <- dbConnect(drv,"jdbc:h2://h2demodb_h2","u","u") 	# Note: 4 
+conn <- dbConnect(drv,"jdbc:h2:h2demodb_h2","u","u") 	# Note: 4 
 d <- dbGetQuery(conn,"SELECT * FROM example_table") 	# Note: 5 
 print(d)  	# Note: 6 
 ##   STATUSID NAME

RunExamples/rXA.Rmd

@@ -11,5 +11,5 @@ source('runDir.R')
 
 ```{r xA1, tidy=FALSE,comment='',prompt=FALSE}
 runDir('../CodeExamples/x0A_Working_with_R_and_other_tools',
-       '.')
+       '../SQLExample')
 ```

RunExamples/replacements/00233_informalexample_A.4_of_section_A.2.1.R

@@ -0,0 +1,7 @@
+# informalexample A.4 of section A.2.1 
+# (informalexample A.4 of section A.2.1)  : Working with R and other tools : Starting with R : Primary features of R 
+
+tryCatch(add(1,'fred'),
+   error=function(x) print(x))
+## Error in a + b : non-numeric argument to binary operator
+

RunExamples/replacements/00244_example_A.14_of_section_A.3.4.R

@@ -0,0 +1,29 @@
+# example A.14 of section A.3.4 
+# (example A.14 of section A.3.4)  : Working with R and other tools : Using databases with R : An example SQL data transformation task 
+# Title: Assembling many rows using SQL 
+
+options(gsubfn.engine = "R")
+library('sqldf')
+joined <- sqldf(' 
+  select 
+     bCurrent.date as StayDate, 
+     bCurrent.daysBefore as daysBefore,
+     bCurrent.nDaysBefore as nDaysBefore,
+     p.price as price,
+     bCurrent.bookings as bookingsCurrent,
+     bPrevious.bookings as bookingsPrevious,
+     bCurrent.bookings - bPrevious.bookings as pickup
+  from
+     bthin bCurrent
+  join
+     bthin bPrevious 
+  on
+     bCurrent.date=bPrevious.date
+     and bCurrent.nDaysBefore+1=bPrevious.nDaysBefore 
+  join
+     pthin p 
+  on
+     bCurrent.date=p.date
+     and bCurrent.nDaysBefore=p.nDaysBefore 
+')
+print(joined)

RunExamples/runDir.R

@@ -3,7 +3,7 @@
 #' 
 #' runDir changes directory to datadir, runs the R examples number between
 #' first and last (inclusive) found in sourcedir.
-#' @parm sourcedir character path to take R examples from
+#' @parm sourcedir character path to take R examples from PATH RELATIVE to datadir
 #' @param datadir character path to run in (and take data from)
 #' @param first integer optional first numbered example eligible to run
 #' @param last integer optional last numbered example eligible to run