Given a tibble of available schemas, filters to the one matching the given column names. Errors out if unsuccessful.
Examples
if (FALSE) { # \dontrun{
x <- here::here(
"nogit/oa_v1/linx/somatic_annotations/L2500331.linx.vis_copy_number.tsv"
)
pname <- "viscn"
cnames <- file_hdr(x)
conf <- Config$new("linx")
schemas_all <- conf$get_raw_schemas_all()
schema_guess(pname, cnames, schemas_all)
} # }