Extracting Current and Old Date

#This my look trivial but has been killing my time
#I want to extract most current and old date from mydates #variable that has more than 10,000 observation. 
#Get days
# use as.Date( ) to convert strings to dates 
mydates <- as.Date(c("2007-06-22", "2007-05-21", "2004-04-13", "2004-03-11","2004-02-13",))
#Is there a way/fuction to extract mostcurrent date
#from mydates variable
mostcurrent <- as.Date(c("2007-06-22"))

#Is there a way/function to extract olddate 
#from mydates variable
olddate    <- as.Date(c("2004-02-13"))

#Days between most current and old dayte
days <- as.numeric(mostcurrent - olddate)  

mydates <- as.Date(c("2007-06-22", "2007-05-21", "2004-04-13", "2004-03-11","2004-02-13"))
min(mydates)

max(mydates)

range(mydates)

diff(range(mydates))