extract unique value into a file in R

I wish it could output unique values into a file "output.txt", my code

sink("output.txt")
d=as.factor(c("a","b","c","c"))
unique(d)
sink()

It output as

Levels: a b c

But I wish it as one element in one line like:

a
b
c