! Column Key not found in .data. #1

Hi !
when I run the code as below:

data("geneHapR_test")
hapResult <- vcf2hap(vcf)
Extracting gt element GT
Error in .data$Key:
! Column Key not found in .data.
Run rlang::last_trace() to see where the error occurred.
why?
Thank you !