IntroToTextAnalytics_Part4 Script Error

[tierraymar]

In IntroToTextAnalytics_Part4

Setup the feature data frame with labels.

train.tokens.df <- cbind(Label = train$Label, data.frame(train.tokens.dfm))

R says:
Warning message:
'as.data.frame.dfm' is deprecated.
Use 'convert(x, to = "data.frame")' instead.
See help("Deprecated")

What would be the fix for this?
I actually found it:
train.tokens.df <- cbind(Label = train$Label, as.data.frame(train.tokens.dfm))

Thanks