# NOT RUN {
x <- 1
y <- set_units(x, m/s)
# this succeeds
drop_units(y)
set_units(y, NULL)
set_units(x, NULL)
# }
# NOT RUN {
# this fails
drop_units(x)
# }
# NOT RUN {
df <- data.frame(x=x, y=y)
df
drop_units(df)
# }
Run the code above in your browser using DataLab