Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion 10_Expressions/Andrew_exper.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -17,6 +17,7 @@ is.constant()
is.elem <- function(x){
testers <- c(is.call, is.name, is.pairlist, is.atomic)
tested <- vapply(testers, function(f) f(x), FUN.VALUE = TRUE)
if(is.atomic(x) & length(x) > 1) stop("Atomic vectors cannot have length larger than one in an expression.")
any(tested)
}

Expand Down Expand Up @@ -236,4 +237,4 @@ arguements are matched by position

### Read the documentation and source code for pryr::partial(). What does it do? How does it work? Read the documentation and source code for pryr::unenclose(). What does it do and how does it work?

### The actual implementation of curve() looks more like
### The actual implementation of curve() looks more like