fork download
copy 
  1. data_de_nascimento = c("16/03/66", "11/06/87", "21/11/75", "05/09/70", 
  2.                        "15/08/70", "15/08/70")
  3. d <- as.Date(data_de_nascimento, "%d/%m/%y" )  
  4. data_de_nascimento_format <- as.Date(
  5.      ifelse(d >  Sys.Date(), format(d, "19%y-%m-%d"), format(d)))
  6.  
  7. head(data_de_nascimento_format)
Success #stdin #stdout 0.45s 79168KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "1966-03-16" "1987-06-11" "1975-11-21" "1970-09-05" "1970-08-15"
[6] "1970-08-15"
https://ideone.com/PyO0XQ
http://pt.stackoverflow.com/q/143260/100
language:
R (R 3.5.2)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!