diff --git a/Base_Graphics/lesson.yaml b/Base_Graphics/lesson.yaml
index d2f511b..829c0d3 100644
--- a/Base_Graphics/lesson.yaml
+++ b/Base_Graphics/lesson.yaml
@@ -259,9 +259,4 @@
 - Class: text
   Output: En esta lección, usted aprendió cómo trabajar con gráficos de base en R. El mejor lugar para ir desde aquí es estudiar el paquete ggplot2. Si desea explorar otros elementos de gráficos de base, entonces consulte esta página web (http://www.ling.upenn.edu/~joseff/rstudy/week4.html) le ofrecerá un panorama útil.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Basic_Building_Blocks/lesson.yaml b/Basic_Building_Blocks/lesson.yaml
index 75b20e6..f354467 100644
--- a/Basic_Building_Blocks/lesson.yaml
+++ b/Basic_Building_Blocks/lesson.yaml
@@ -184,9 +184,4 @@
   AnswerTests: omnitest(correctExpr='my_div')
   Hint: Si su entorno de programación no soporta auto-realización, sólo tienes que escribir my_div y pulse Enter para continuar.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Dates_and_Times/lesson.yaml b/Dates_and_Times/lesson.yaml
index 959d9ca..57262c5 100644
--- a/Dates_and_Times/lesson.yaml
+++ b/Dates_and_Times/lesson.yaml
@@ -192,9 +192,4 @@
 - Class: text
   Output: En esta lección, ha aprendido a trabajar con fechas y horas en R. Si bien es importante comprender los fundamentos, si usted se encuentra trabajando con las fechas y horas a menudo, es posible que desee comprobar el paquete lubridate desarrollado por Hadley Wickham.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Functions/customTests.R b/Functions/customTests.R
index 8f43494..577db49 100644
--- a/Functions/customTests.R
+++ b/Functions/customTests.R
@@ -1,197 +1,112 @@
-# So swirl does not repeat execution of commands
-# AUTO_DETECT_NEWVAR <- FALSE
-
-expr_creates_var <- function(correctName=NULL){
-  e <- get("e", parent.frame())
-  # TODO: Eventually make auto-detection of new variables an option.
-  # Currently it can be set in customTests.R
-  delta <- if(!customTests$AUTO_DETECT_NEWVAR){
-    safeEval(e$expr, e)
-  } else {
-    e$delta
-  }
-  if(is.null(correctName)){
-    results <- expectThat(length(delta) >= 1,
-                          testthat::is_true(),
-                          label=paste(deparse(e$expr), 
-                                      "does not create a variable."))  
-  } else {
-    results <- expectThat(correctName %in% names(delta), 
-                          testthat::is_true(), 
-                          label=paste(deparse(e$expr),
-                                      "does not create a variable named",
-                                      correctName))
-  }
-  if(results$passed){
-    e$newVar <- e$val
-    e$newVarName <- names(delta)[1]
-    e$delta <- mergeLists(delta, e$delta)
-  } else {
-    e$delta <- list()
-  }
-  return(results$passed)
+test_func1 <- function() {
+  try({
+    func <- get('boring_function', globalenv())
+    t1 <- identical(func(9), 9)
+    t2 <- identical(func(4), 4)
+    t3 <- identical(func(0), 0)
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-# Returns TRUE if the user has calculated a value equal to that calculated by the given expression.
-calculates_same_value <- function(expr){
-  e <- get("e", parent.frame())
-  # Calculate what the user should have done.
-  eSnap <- cleanEnv(e$snapshot)
-  val <- eval(parse(text=expr), eSnap)
-  passed <- isTRUE(all.equal(val, e$val))
-  if(!passed)e$delta <- list()
-  return(passed)
+test_func2 <- function() {
+  try({
+    func <- get('my_mean', globalenv())
+    t1 <- identical(func(9), mean(9))
+    t2 <- identical(func(1:10), mean(1:10))
+    t3 <- identical(func(c(-5, -2, 4, 10)), mean(c(-5, -2, 4, 10)))
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-omnitest <- function(correctExpr=NULL, correctVal=NULL, strict=FALSE){
-  e <- get("e", parent.frame())
-  # Trivial case
-  if(is.null(correctExpr) && is.null(correctVal))return(TRUE)
-  # Testing for correct expression only
-  if(!is.null(correctExpr) && is.null(correctVal)){
-    passed <- expr_identical_to(correctExpr)
-    if(!passed)e$delta <- list()
-    return(passed)
-  }
-  # Testing for both correct expression and correct value
-  # Value must be character or single number
-  valGood <- NULL
-  if(!is.null(correctVal)){
-    if(is.character(e$val)){
-      valResults <- expectThat(e$val,
-                               is_equivalent_to(correctVal, label=correctVal),
-                               label=(e$val))
-      if(is(e, "dev") && !valResults$passed)swirl_out(valResults$message)
-      valGood <- valResults$passed
-      # valGood <- val_matches(correctVal)
-    } else if(!is.na(e$val) && is.numeric(e$val) && length(e$val) == 1){
-      cval <- try(as.numeric(correctVal), silent=TRUE)
-      valResults <- expectThat(e$val, 
-                               equals(cval, label=correctVal),
-                               label=toString(e$val))
-      if(is(e, "dev") && !valResults$passed)swirl_out(valResults$message)
-      valGood <- valResults$passed
-    }
-  }
-  exprGood <- ifelse(is.null(correctExpr), TRUE, expr_identical_to(correctExpr))
-  if(valGood && exprGood){
-    return(TRUE)
-  } else if (valGood && !exprGood && !strict){
-    swirl_out("That's not the expression I expected but it works.")
-    swirl_out("I've executed the correct expression in case the result is needed in an upcoming question.")
-    eval(parse(text=correctExpr),globalenv())
-    return(TRUE)
-  } else {
-    e$delta <- list()
-    return(FALSE)
-  }
+test_func3 <- function() {
+  try({
+    func <- get('remainder', globalenv())
+    t1 <- identical(func(9, 4), 9 %% 4)
+    t2 <- identical(func(divisor = 5, num = 2), 2 %% 5)
+    t3 <- identical(func(5), 5 %% 2)
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-match_call <- function(correct_call = NULL) {
-  e <- get("e", parent.frame())
-  # Trivial case
-  if(is.null(correct_call)) return(TRUE)
-  # Get full correct call
-  full_correct_call <- expand_call(correct_call)  
-  # Expand user's expression
-  expr <- deparse(e$expr)
-  full_user_expr <- expand_call(expr)
-  # Compare function calls with full arg names
-  identical(full_correct_call, full_user_expr)
+test_func4 <- function() {
+  try({
+    func <- get('evaluate', globalenv())
+    t1 <- identical(func(sum, c(2, 4, 7)), 13)
+    t2 <- identical(func(median, c(9, 200, 100)), 100)
+    t3 <- identical(func(floor, 12.1), 12)
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-# Utility function for match_call answer test
-# Fills out a function call with full argument names
-expand_call <- function(call_string) {
-  # Quote expression
-  qcall <- parse(text=call_string)[[1]]
-  # If expression is not greater than length 1...
-  if(length(qcall) <= 1) return(qcall)
-  # See if it's an assignment
-  is_assign <- is(qcall, "<-")
-  # If assignment, process righthandside
-  if(is_assign) {
-    # Get righthand side
-    rhs <- qcall[[3]]
-    # If righthand side is not a call, can't use match.fun()
-    if(!is.call(rhs)) return(qcall)
-    # Get function from function name
-    fun <- match.fun(rhs[[1]])
-    # match.call() does not support primitive functions
-    if(is.primitive(fun)) return(qcall)
-    # Get expanded call
-    full_rhs <- match.call(fun, rhs)
-    # Full call
-    qcall[[3]] <- full_rhs
-  } else { # If not assignment, process whole thing
-    # Get function from function name
-    fun <- match.fun(qcall[[1]])
-    # match.call() does not support primitive functions
-    if(is.primitive(fun)) return(qcall)
-    # Full call
-    qcall <- match.call(fun, qcall)
-  } 
-  # Return expanded function call
-  qcall
+test_func5 <- function() {
+  try({
+    func <- get('telegram', globalenv())
+    t1 <- identical(func("Good", "morning"), "START Good morning STOP")
+    t2 <- identical(func("hello", "there", "sir"), "START hello there sir STOP")
+    t3 <- identical(func(), "START STOP")
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-# Returns TRUE if e$expr matches any of the expressions given
-# (as characters) in the argument.
-ANY_of_exprs <- function(...){
-  e <- get("e", parent.frame())
-  any(sapply(c(...), function(expr)omnitest(expr)))
+test_func6 <- function() {
+  try({
+    func <- get('mad_libs', globalenv())
+    t1 <- identical(func(place = "Baltimore", adjective = "smelly", noun = "Roger Peng statue"), "News from Baltimore today where smelly students took to the streets in protest of the new Roger Peng statue being installed on campus.")
+    t2 <- identical(func(place = "Washington", adjective = "angry", noun = "Shake Shack"), "News from Washington today where angry students took to the streets in protest of the new Shake Shack being installed on campus.")
+    ok <- all(t1, t2)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-
-
-notify <- function() {
-  e <- get("e", parent.frame())
-  if(e$val == "No") return(TRUE)
-  
-  good <- FALSE
-  while(!good) {
-    # Get info
-    name <- readline_clean("What is your full name? ")
-    address <- readline_clean("What is the email address of the person you'd like to notify? ")
-    
-    # Repeat back to them
-    message("\nDoes everything look good?\n")
-    message("Your name: ", name, "\n", "Send to: ", address)
-    
-    yn <- select.list(c("Yes", "No"), graphics = FALSE)
-    if(yn == "Yes") good <- TRUE
-  }
-  
-  # Get course and lesson names
-  course_name <- attr(e$les, "course_name")
-  lesson_name <- attr(e$les, "lesson_name")
-  
-  subject <- paste(name, "just completed", course_name, "-", lesson_name)
-  body = ""
-  
-  # Send email
-  swirl:::email(address, subject, body)
-  
-  hrule()
-  message("I just tried to create a new email with the following info:\n")
-  message("To: ", address)
-  message("Subject: ", subject)
-  message("Body: <empty>")
-  
-  message("\nIf it didn't work, you can send the same email manually.")
-  hrule()
-  
-  # Return TRUE to satisfy swirl and return to course menu
-  TRUE
+test_func7 <- function() {
+  try({
+    func <- get('%p%', globalenv())
+    t1 <- identical(func("Good", "job!"), "Good job!")
+    t2 <- identical(func("one", func("two", "three")), "one two three")
+    ok <- all(t1, t2)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-readline_clean <- function(prompt = "") {
-  wrapped <- strwrap(prompt, width = getOption("width") - 2)
-  mes <- stringr::str_c("| ", wrapped, collapse = "\n")
-  message(mes)
-  readline()
+test_eval1 <- function(){
+  try({
+    e <- get("e", parent.frame())
+    expr <- e$expr
+    t1 <- identical(expr[[3]], 6)
+    expr[[3]] <- 7
+    t2 <- identical(eval(expr), 8)
+    ok <- all(t1, t2)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
 
-hrule <- function() {
-  message("\n", paste0(rep("#", getOption("width") - 2), collapse = ""), "\n")
+test_eval2 <- function(){
+  try({
+    e <- get("e", parent.frame())
+    expr <- e$expr
+    t1 <- identical(expr[[3]], quote(c(8, 4, 0)))
+    t2 <- identical(expr[[1]], quote(evaluate))
+    expr[[3]] <- c(5, 6)
+    t3 <- identical(eval(expr), 5)
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
 }
+
+test_eval3 <- function(){
+  try({
+    e <- get("e", parent.frame())
+    expr <- e$expr
+    t1 <- identical(expr[[3]], quote(c(8, 4, 0)))
+    t2 <- identical(expr[[1]], quote(evaluate))
+    expr[[3]] <- c(5, 6)
+    t3 <- identical(eval(expr), 6)
+    ok <- all(t1, t2, t3)
+  }, silent = TRUE)
+  exists('ok') && isTRUE(ok)
+}
\ No newline at end of file
diff --git a/Functions/lesson.yaml b/Functions/lesson.yaml
index ff64aeb..b8fbe26 100644
--- a/Functions/lesson.yaml
+++ b/Functions/lesson.yaml
@@ -13,7 +13,7 @@
   Output: "Si usted ha trabajado en de cualquier otro componente de este curso, entonces seguramente a utilizado algunas funciones ya. Las funciones se caracterizan generalmente por estar compuestas por el nombre de la función seguido de paréntesis."
 
 - Class: cmd_question
-  Output: "Vamos a intentar usar algunas funciones básicas sólo por diversión. La función Sys.Dat() devuelve una cadena que representa la fecha de hoy. Escriba Sys.Date() abajo para ver qué pasa."
+  Output: "Vamos a intentar usar algunas funciones básicas sólo por diversión. La función Sys.Date() devuelve una cadena que representa la fecha de hoy. Escriba Sys.Date() abajo para ver qué pasa."
   CorrectAnswer: Sys.Date()
   AnswerTests: omnitest(correctExpr='Sys.Date()')
   Hint: "Depliega la fecha de hoy escribiendo: Sys.Date()"
@@ -231,10 +231,5 @@
 - Class: text
   Output: "Hemos llegado al final de nuestra lección! Vaya por ahí y escriba algunas funciones estupendas!"
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
 
diff --git a/Looking_at_Data/lesson.yaml b/Looking_at_Data/lesson.yaml
index c795646..da4d0dd 100644
--- a/Looking_at_Data/lesson.yaml
+++ b/Looking_at_Data/lesson.yaml
@@ -119,9 +119,4 @@
 - Class: text
   Output: En esta lección, ha aprendido a tener una idea de la estructura y contenido de un nuevo conjunto de datos utilizando una colección de funciones simples y útiles. Tomarse el tiempo para hacer esto por adelantado puede ahorrarle tiempo y frustración más tarde durante su análisis.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Matrices_and_Data_Frames/lesson.yaml b/Matrices_and_Data_Frames/lesson.yaml
index b0785b0..4e7008b 100644
--- a/Matrices_and_Data_Frames/lesson.yaml
+++ b/Matrices_and_Data_Frames/lesson.yaml
@@ -177,9 +177,4 @@
 - Class: text
   Output: En esta lección, usted aprendió lo básico de trabajar con dos estructuras de datos muy importantes y comunes en R -- matrices y tablas de datos. Hay mucho más que aprender y vamos a estar cubriendo temas más avanzados, particularmente con respecto a las tablas de datos, en las lecciones futuras.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Missing_Values/lesson.yaml b/Missing_Values/lesson.yaml
index 3bd1d30..e52b502 100644
--- a/Missing_Values/lesson.yaml
+++ b/Missing_Values/lesson.yaml
@@ -102,10 +102,5 @@
   AnswerTests: omnitest(correctExpr='Inf - Inf')
   Hint: Escriba Inf - Inf. ¿Puedes adivinar el resultado?
   
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
 
diff --git a/Sequences_of_Numbers/lesson.yaml b/Sequences_of_Numbers/lesson.yaml
index 03791ca..1b74485 100644
--- a/Sequences_of_Numbers/lesson.yaml
+++ b/Sequences_of_Numbers/lesson.yaml
@@ -121,9 +121,4 @@
   AnswerTests: omnitest(correctExpr='rep(c(0, 1, 2), each = 10)')
   Hint: Escriba rep(c (0, 1, 2), each = 10) para ver cómo el argumento `each` de la función rep() altera su comportamiento ligeramente.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Simulation/lesson.yaml b/Simulation/lesson.yaml
index ef994ec..a5d28bf 100644
--- a/Simulation/lesson.yaml
+++ b/Simulation/lesson.yaml
@@ -171,9 +171,4 @@
 - Class: text
   Output: La simulación es prácticamente un campo en si mismo y sólo hemos rozado la superficie de lo que se puede hacer. Le animo a explorar estas y otras funciones más por su cuenta.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Subsetting_Vectors/lesson.yaml b/Subsetting_Vectors/lesson.yaml
index fc1fe86..b10539e 100644
--- a/Subsetting_Vectors/lesson.yaml
+++ b/Subsetting_Vectors/lesson.yaml
@@ -198,9 +198,4 @@
 - Class: text
   Output: Ahora usted sabe los cuatro métodos de subconjuntos de datos de vectores. Diferentes enfoques son mejores en diferentes escenarios y en caso de duda, experiméntalo!
 
-- Class: mult_question
-  Output: Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Vectors/lesson.yaml b/Vectors/lesson.yaml
index 2d1593f..9da86f5 100644
--- a/Vectors/lesson.yaml
+++ b/Vectors/lesson.yaml
@@ -183,9 +183,4 @@
 - Class: text
   Output: Vamos a discutir la coerción en otra lección, pero todo lo que realmente significa es que los números 1, 2, 3 y 4 en la salida anterior ya no son numeros para R, sino más bien los characteres "1", "2", "3" y "4".
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/Workspace_and_Files/lesson.yaml b/Workspace_and_Files/lesson.yaml
index d488835..8b03aa8 100644
--- a/Workspace_and_Files/lesson.yaml
+++ b/Workspace_and_Files/lesson.yaml
@@ -205,9 +205,4 @@
 - Class: text
   Output: "En esta lección, ha aprendido a examinar su espacio de trabajo en R y a trabajar con el sistema de archivos de su máquina desde dentro R. Gracias por jugar!"
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/lapply_and_sapply/lesson.yaml b/lapply_and_sapply/lesson.yaml
index 00defe4..33c20b2 100644
--- a/lapply_and_sapply/lesson.yaml
+++ b/lapply_and_sapply/lesson.yaml
@@ -234,9 +234,4 @@
 - Class: text
   Output: En esta lección, ha aprendido a usar el poderosas funciones lapply() y sapply() para aplicar una operación sobre los elementos de una lista. En la siguiente lección, vamos a echar un vistazo a algunos parientes cercanos de lapply() y sapply().
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+
diff --git a/vapply_and_tapply/lesson.yaml b/vapply_and_tapply/lesson.yaml
index ebab3a6..5ac1150 100644
--- a/vapply_and_tapply/lesson.yaml
+++ b/vapply_and_tapply/lesson.yaml
@@ -119,9 +119,4 @@
 - Class: text  
   Output: En esta lección, ha aprendido a utilizar vapply() como una alternativa más segura a sapply(), que es más útil al escribir sus propias funciones. También ha aprendido a utilizar tapply() para dividir los datos en grupos basados ​​en el valor de una variable, luego aplicar una función a cada grupo. Estas funciones serán útiles en su búsqueda para convertirse en un mejor analista de datos.
 
-- Class: mult_question
-  Output: ¿Te gustaría informar a alguien acerca de su finalización con éxito de esta lección?
-  CorrectAnswer: NULL
-  AnswerChoices: Yes; No
-  AnswerTests: notify()
-  Hint: NULL
+