read_gal can't work

```r
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