| Author | DaveJarvis <email> |
|---|---|
| Date | 2020-05-17 01:13:38 GMT-0700 |
| Commit | 4a45090a8e041d14463716503f8c38c782df6d6a |
| Parent | 135ed17 |
| Delta | 8 lines added, 8 lines removed |
| 1. Append the following: | ||
| ``` r | ||
| - x <- function( s ) { | ||
| - tryCatch( { | ||
| - r = eval( parse( text = s ) ) | ||
| + x <- function( s ) { | ||
| + tryCatch( { | ||
| + r = eval( parse( text = s ) ) | ||
| - ifelse( is.atomic( r ), r, s ); | ||
| - }, | ||
| - warning = function( w ) { s }, | ||
| - error = function( e ) { s } ) | ||
| - } | ||
| + ifelse( is.atomic( r ), r, s ); | ||
| + }, | ||
| + warning = function( w ) { s }, | ||
| + error = function( e ) { s } ) | ||
| + } | ||
| ``` | ||
| 1. Click **OK**. |