¿Cuál será el resultado del siguiente código?

x <- 10
f1 <- function(x) {
  function() {
    x + 10
  }
}
f1(1)()

¿Mostrará el siguiente código un error?

f2 <- function(a, b) {
  a * 10
}
f2(10, stop("This is an error!"))