dleutnant
commented
4 years ago It seems that you have some conduits without coordinates.
library(tidyverse)
library(swmmr)
inp_file <- "/Users/dominik/Downloads/Paullo.inp"
Paullo <- read_inp(x = inp_file)
summary(Paullo)
#>
#> ** summary of swmm model structure **
#> infiltration : horton
#> flow_units : cms
#> flow_routing : dynwave
#> start_date : 06/22/1993
#> end_date : 06/23/1993
#> raingages : 1
#> subcatchments : 835
#> aquifers : 0
#> snowpacks : 0
#> junctions : 909
#> outfalls : 18
#> dividers : 0
#> storages : 0
#> conduits : 958
#> pumps : 0
#> orifices : 0
#> weirs : 0
#> outlets : 0
#> controls : 0
#> pollutants : 0
#> landuses : 0
#> lid_controls : 0
#> treatment : 0
#> *************************************
dplyr::left_join(x = Paullo$conduits,
y = Paullo$coordinates,
by = c(`To Node` = "Node")) %>%
dplyr::filter(is.na(`X-Coord`) | is.na(`Y-Coord`)) %>%
dplyr::select(Name, `From Node`, `To Node`, `X-Coord`, `Y-Coord`)
#> # A tibble: 18 x 5
#> Name `From Node` `To Node` `X-Coord` `Y-Coord`
#> <chr> <chr> <chr> <dbl> <dbl>
#> 1 C9 942 944 NA NA
#> 2 C163 851 979 NA NA
#> 3 C166 756 754 NA NA
#> 4 C172 540 951 NA NA
#> 5 C239 506 959 NA NA
#> 6 C254 417 418 NA NA
#> 7 C371 679 709 NA NA
#> 8 C588 924 923 NA NA
#> 9 C598 921 922 NA NA
#> 10 C643 753 937 NA NA
#> 11 C700 400 991 NA NA
#> 12 C701 502 503 NA NA
#> 13 C943 693 946 NA NA
#> 14 C966 908 909 NA NA
#> 15 C991 932 714 NA NA
#> 16 C1001 939 943 NA NA
#> 17 C1017 870 871 NA NA
#> 18 C1033 771 945 NA NACreated on 2020-01-23 by the reprex package (v0.3.0)
ghost
2 - Trying to insert the storage elements, these are detected but the corresponding coordinates are not loaded correctly by the
Hello all, I tried to convert a .inp file of a sewer network (see below for the file) to a shape file but I get this error: "Error in valid_numeric_matrix(x) : !anyNA(x) is not TRUE" and the script only creates the shapefile of the polygons. I tried with all the sample files in the package and the code worked. Can you please help me? Thank you very much. Enrico
The code that I used is the following:
if (!require(swmmr)) install.packages(swmmr) library(tidyverse) library(swmmr) library(purrr) library(dplyr) library(sf)
inp_file <- "C:/Users/Enrico/Tesi/Paullo/R/Paullo.inp" out_dir <- "C:/Users/Enrico/Tesi/Paullo/R"
Paullo <- read_inp(x = inp_file) summary(Paullo)
inp_to_files(x = Paullo, name = "Paullo", path_out = out_dir)
list.files(out_dir) c("shp", "txt", "dat") %>% map( ~ file.path(out_dir, .)) %>% map(list.files)
Paullo Script.txt