My issue

I have melt object from reshape library.

I would like to subset variables with value==1.

However, when I select value from subset melt object, I get the id instead of variable.

How to get a vector where I end up with an output vector==[1] "varD" "varA"?

Reproducible example

### Import library
library(reshape)

### Initiating dataframe
dftmp <- data.frame(id=1:3,
                    varA=1:3,
                    varB=4:6,
                    varC=7:9)

### Melt dataframe
melttmp <- melt(dftmp, id.vars="id")

### Selecting variable with value==1
varValue1 <- subset(melttmp, value==1)$variable

### Vector of varD and variable with value==1
output <- c("varD", varValue1)
output
[1] "varD" "1"