f =  function(a, b){
    c = rep(0, 3)
    cat('c=', c, 'n')
    d = c[b]
    cat('d=', d, 'n')
    return(list(a=a, d = d))
}
f(a = 1)