I think this would be nice as a separate function: 

```R
all_identical <- function(xs) {
  if (length(xs) <= 1) return(TRUE)
  for(i in seq(2, length(xs)) {
    if (!identical(x[[1]], x[[i]]) return(FALSE)
  }
  TRUE
}
```