# NOT RUN {
library(sparklyr)
sc <- spark_connect(master = "local")
vsc <- vs_connect(sc)
hipster_vcf <- vs_read_vcf(vsc,
system.file("extdata/hipster.vcf.bz2",
package = "variantspark"))
sample_names(hipster_vcf, 3)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace