# NOT RUN {
# using the 'beaver1' dataset, binarize the 'temp' column
data(beavers, package = "datasets")
beaver_tbl <- copy_to(sc, beaver1, "beaver")
beaver_tbl %>%
mutate(squared = temp ^ 2) %>%
sdf_mutate(warm = ft_binarizer(squared, 1000)) %>%
sdf_register("mutated")
# view our newly constructed tbl
head(beaver_tbl)
# note that we have two separate tbls registered
dplyr::src_tbls(sc)
# }
Run the code above in your browser using DataLab