CDE

Task/Exceptions/R/exceptions-1.r

@@ -0,0 +1 @@
+e <- simpleError("This is a simpleError")

Task/Exceptions/R/exceptions-2.r

@@ -0,0 +1,2 @@
+stop("An error has occured")
+stop(e)                      #where e is a simpleError, as above

Task/Exceptions/R/exceptions-3.r

@@ -0,0 +1,13 @@
+tryCatch(
+  {
+    if(runif(1) > 0.5)
+    {
+      message("This doesn't throw an error")
+    } else
+    {
+      stop("This is an error")
+    }
+  },
+  error = function(e) message(paste("An error occured", e$message, sep = ": ")),
+  finally = message("This is called whether or not an exception occured")
+)