split the superhero names with their ages in the given vector

Given this vector:

vector <- c("Superman1000", "Batman35", "Wonderwoman240") 

I want to split the superhero's name and age.

df=data.frame(vector= c("Superman1000", "Batman35", "Wonderwoman240"))

library(stringr)
library(stringi)
library(dplyr)

df %>% separate(vector, c("A", "B"))

I tried this but it doesn't work.