read_gal can't work

[SpatLyu]

library(rgeoda)
guerry_path <- system.file("extdata", "Guerry.shp", package = "rgeoda")
guerry <- sf::read_sf(guerry_path)
queen_w <- queen_weights(guerry)
save_weights(queen_w, guerry['CODE_DE'], './guerry1.gal')
w <- read_gal('./guerry1.gal', guerry['CODE_DE'][[1]])

The last line of code w <- read_gal('./guerry1.gal', guerry['CODE_DE'][[1]]) does not work properly