Setting value variable in cast does not if "value" column already exists

[hadley]

df <- data.frame(
  id1 = rep(letters[1:2],2), 
  id2 = rep(LETTERS [1:2],each=2), var1=1:4)

df.m <- melt(df)
df.m$value2 <- runif(4)
cast(df.m, id1~id2, value="value")
cast(df.m, id1~id2, value="value2")

[hadley]

From Baptiste:

s far as I can see the problem appears when the data.frame contains a
variable "value" (e.g. as a result of melt()). In this case we end up
with two value variables after the following line in cast,

if (any(names(data) == value))
  names(data)[names(data) == value] <- "value"
browser() # data has two value variables

[baptiste]

something like this might be good enough for a quick fix,

if (any(names(data) == value) & value != "value") {
names(data)[names(data) == "value"] <- ".value"
names(data)[names(data) == value] <- "value"
}

[hadley]

I'm closing this because it's fixed in reshape2