Viewer only renders 1 zone in 3 zone model about eplusr HOT 4 CLOSED

library(eplusr)

idf <- read_idf("3ZoneModel_modified.idf")
#> IDD v9.4.0 has not been parsed before.
#> Try to locate 'Energy+.idd' in EnergyPlus v9.4.0 installation folder 'C:\EnergyPlusV9-4-0'.
#> IDD file found: 'C:\Users\hongy\AppData\Local\EnergyPlusV9-4-0\Energy+.idd'.
#> Start parsing...
#> Parsing completed.
# there are many surfaces that have the same vertices
idf$to_table(c("Surface 1", "Surface 7", "Surface 13"), wide = TRUE)
#>    id       name                    class       Name Surface Type
#> 1:  2  Surface 1 BuildingSurface:Detailed  Surface 1        Floor
#> 2:  8  Surface 7 BuildingSurface:Detailed  Surface 7        Floor
#> 3: 14 Surface 13 BuildingSurface:Detailed Surface 13        Floor
#>    Construction Name      Zone Name Outside Boundary Condition
#> 1:              Z1_F Thermal_Zone_1                     Ground
#> 2:              Z2_F Thermal_Zone_2                     Ground
#> 3:              Z3_F Thermal_Zone_3                     Ground
#>    Outside Boundary Condition Object Sun Exposure Wind Exposure
#> 1:                              <NA>        NoSun        NoWind
#> 2:                              <NA>        NoSun        NoWind
#> 3:                              <NA>        NoSun        NoWind
#>    View Factor to Ground Number of Vertices Vertex 1 X-coordinate
#> 1:                  <NA>               <NA>                8.8392
#> 2:                  <NA>               <NA>                8.8392
#> 3:                  <NA>               <NA>                8.8392
#>    Vertex 1 Y-coordinate Vertex 1 Z-coordinate Vertex 2 X-coordinate
#> 1:                     0                     0                8.8392
#> 2:                     0                     0                8.8392
#> 3:                     0                     0                8.8392
#>    Vertex 2 Y-coordinate Vertex 2 Z-coordinate Vertex 3 X-coordinate
#> 1:               -5.7912                     0                     0
#> 2:               -5.7912                     0                     0
#> 3:               -5.7912                     0                     0
#>    Vertex 3 Y-coordinate Vertex 3 Z-coordinate Vertex 4 X-coordinate
#> 1:               -5.7912                     0                     0
#> 2:               -5.7912                     0                     0
#> 3:               -5.7912                     0                     0
#>    Vertex 4 Y-coordinate Vertex 4 Z-coordinate
#> 1:                     0                     0
#> 2:                     0                     0
#> 3:                     0                     0

surf <- idf$geometry()$azimuth()
img <- c()
viewer <- idf$view()
for (i in seq.int(nrow(surf))) {
    viewer$show(surface = surf$name[i])
    img <- c(img, rgl::snapshot3d(file.path(tempdir(), sprintf("%s-%s.png", surf$zone[i], surf$name[i]), webshot = FALSE)))
}
surf$image <- img
surf[type == "Wall", type := data.table::fcase(
    azimuth == 0, "North Wall",
    azimuth == 90, "East Wall",
    azimuth == 180, "South Wall",
    azimuth == 270, "West Wall"
)]
surf[, type := forcats::fct_relevel(type, "Roof", "North Wall", "East Wall", "South Wall", "West Wall")]
surf[, type := forcats::fct_rev(type)]

library(ggimage)

ggplot(surf, aes(zone, type)) +
    geom_image(aes(image = image), size = 0.15) +
    labs(x = NULL, y = NULL) +
    theme_minimal()