setwd("G:/")
biomfile = "K36_37.biom2" 
data <- import_biom(biomfile, parseFunction = parse_taxonomy_default)

 data <- import_biom(biomfile, parseFunction = parse_taxonomy_default)
Warning messages:
1: In strsplit(conditionMessage(e), "\n") :
  unable to translate 'lexical error: invalid char in json text.
                                       <89>HDF  ?                      (right here) ------^
' to a wide string
2: In strsplit(conditionMessage(e), "\n") : input string 1 is invalid