Problème avec une fonction

pour bien resoudre cette fonction on doit diviser les problèmes

en premier lieu :

l'appel au nom et prenom se fait par :

print( "taper le nom" )
nom <- scan(nmax=1)
print( "taper le prenom" )
prenom <- scan(nmax=1)
print( "taper la date de naissance" )
dateNaissance <- ........ ICI le problème

..ici déclarer variable age

l'affichage finale se fait par

paste('Bonjour je m\'appelle', nom, 'et j\'ai', age, 'ans', sep=' ')

la declaration de fonction se fait par

affichage<-function()
{

print( "taper le nom" )
nom <-  scan(nmax=1)
print( "taper le prenom" )
prenom <-  scan(nmax=1)
print( "taper la date de naissance" )
dateNaissance <-  ........ ICI le problème

..ici déclarer  variable age
// récupérer la date système
// faire de boucle for pour calculer l'age ( comparer le mois et l'année entre date de naissance saisie et date système


paste('Bonjour je m\'appelle', nom, 'et j\'ai', age, 'ans', sep=' ')


}

je trouve une fonction qui permet de calculer l'age mais en .net

cette fonction nécessite la récupération de date système ( mois , jours , année)

   Protected Sub calcul_age()
    Dim datetimenow = DateTime.Now
    Dim datedenaissance = CDate(TbDn.Text)
    Dim age As Integer
    age = CInt(Now.Year - datedenaissance.Year)
    If (datedenaissance.Month > Now.Month) Then
    age = age - 1
    End If
    If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then
    age = age - 1
    End If
    Me.Label3.Text = " Age : " & age & " ans"
    End Sub

donc le problème est de trouver l'équivalent de cette fonction mais en R langage