将值替换为其各自列的名称

我有一个数据框：

Code    401k    CVS
101A            true
231N    true
FD54    true
99JB    
85F4    true

我试图用相应的列名称（例如“401k”）替换“true”字符值。这是我想要的输出：

Code    401k    CVS
101A            CVS
231N    401k
FD54    401k
99JB    
85F4    401k

下面的编码使我能够将每个“true”值（字符）替换为其各自的列名称。

##Replace every "true" value with its respective column name
w <- which(df=="true",arr.ind=TRUE)
df[w] <- names(df)[w[,"col"]]