if (FALSE) {
# produces a dataframe with an array of characteristics nested under
# each unique species identifier
iris_tbl <- copy_to(sc, iris, name="iris")
iris_nst <- iris_tbl %>%
sdf_nest(Sepal_Length, Sepal_Width, .key="Sepal")
# using java-like dot-notation
iris_nst %>%
sdf_select(Species, Petal_Width, Sepal.Sepal_Width)
# using R-like dollar-sign-notation
iris_nst %>%
sdf_select(Species, Petal_Width, Sepal$Sepal_Width)
# using dplyr selection helpers
iris_nst %>%
sdf_select(Species, matches("Petal"), Sepal$Sepal_Width)
}
Run the code above in your browser using DataLab