tidy_genomic_data() filters common markers even when filter.common.markers=FALSE about radiator HOT 3 CLOSED

  if (data.type == "vcf.file") {
    if (verbose) 
      message("Importing and tidying the VCF...")
    input <- radiator::tidy_vcf(data = data, strata = strata.df, 
      parallel.core = parallel.core, verbose = verbose, 
      whitelist.markers = whitelist.markers, filename = NULL, 
      vcf.metadata = vcf.metadata, vcf.stats = vcf.stats, 
      gt.vcf.nuc = TRUE, gt.vcf = TRUE, gt = TRUE, gt.bin = TRUE, 
      path.folder = path.folder, internal = TRUE, tidy.check = FALSE, filter.common.markers = filter.common.markers)
    biallelic <- radiator::detect_biallelic_markers(input)
  }

>tidy.test <- read_rad(data="sphanorth124spatial.radiator.50pctmsng.oneSNPmac3.rad")
>strata.test <- read_strata(strata="sphanorth124spatial_popcoords_radiator_strata.txt")
>tidy.test2 <- join_strata(data=tidy.test,
>                        strata=strata.test)

Synchronizing data and strata...
Error in UseMethod("filter_") : 
  no applicable method for 'filter_' applied to an object of class "list"

old.tidy <- radiator::read_rad(data="sphanorth124spatial.radiator.50pctmsng.oneSNPmac3.rad")
new.strata <- radiator::read_strata(strata="sphanorth124spatial_popcoords_radiator_strata.txt") %$% strata
new.tidy <- radiator::join_strata(
    data = old.tidy,
    strata = new.strata
)