a = c("01/2009","03/2006","","12/2003")
b = c("03/2016","05/2010","07/2011","")
df = data.frame(a,b)
gsub("/","/01/", df$a, fixed=TRUE)
gsub("^(\\d{2})/(\\d{4})$", "\\1/01/\\2", df$a)
YSA9IGMoIjAxLzIwMDkiLCIwMy8yMDA2IiwiIiwiMTIvMjAwMyIpCmIgPSBjKCIwMy8yMDE2IiwiMDUvMjAxMCIsIjA3LzIwMTEiLCIiKSAKZGYgPSBkYXRhLmZyYW1lKGEsYikgCmdzdWIoIi8iLCIvMDEvIiwgZGYkYSwgZml4ZWQ9VFJVRSkKZ3N1YigiXihcXGR7Mn0pLyhcXGR7NH0pJCIsICJcXDEvMDEvXFwyIiwgZGYkYSkK