station_sw <- stations_sw[1,] %>%
dplyr::select_if(function(x){!all(is.na(x))})
station_sw
#> # A tibble: 1 x 3
#> Messstellennummer Messstellenname ws
#> <chr> <chr> <chr>
#> 1 5865900 Allee der Kosmonauten x
get_station_variables_new <- function(station) {
names(station)[!names(station) %in% c("Messstellennummer", "Messstellenname")]
}
get_station_variables_new(station_sw)
#> [1] "ws"
### Function below does not work as found variables differ slightly from old ones
### (see `variable_ids` above) compared to the variables (compare column headers)
### provided by Wasserportal that are now harvested by scraping the available
### tables with the function wasserportal::get_stations()
wasserportal::read_wasserportal(station = station_sw$Messstellennummer,
variables = get_station_variables_new(station_sw)
)
#> Error in wasserportal::read_wasserportal(station = station_sw$Messstellennummer, : all(variables %in% variable_ids) ist nicht TRUE
i.e. get rid of old approach relying on static station file
stations_old
but instead make it working for all available ones!Created on 2022-06-01 by the reprex package (v2.0.0)
Session info
``` r sessioninfo::session_info() #> - Session info --------------------------------------------------------------- #> setting value #> version R version 4.1.2 (2021-11-01) #> os Windows 10 x64 #> system x86_64, mingw32 #> ui RTerm #> language (EN) #> collate German_Germany.1252 #> ctype German_Germany.1252 #> tz Europe/Berlin #> date 2022-06-01 #> #> - Packages ------------------------------------------------------------------- #> package * version date lib source #> assertthat 0.2.1 2019-03-21 [1] CRAN (R 4.1.0) #> backports 1.2.1 2020-12-09 [1] CRAN (R 4.1.0) #> cli 3.3.0 2022-04-25 [1] CRAN (R 4.1.3) #> crayon 1.5.1 2022-03-26 [1] CRAN (R 4.1.3) #> data.table 1.14.2 2021-09-27 [1] CRAN (R 4.1.3) #> DBI 1.1.2 2021-12-20 [1] CRAN (R 4.1.3) #> digest 0.6.27 2020-10-24 [1] CRAN (R 4.1.0) #> dplyr 1.0.9 2022-04-28 [1] CRAN (R 4.1.3) #> ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.1.0) #> evaluate 0.14 2019-05-28 [1] CRAN (R 4.1.0) #> fansi 1.0.3 2022-03-24 [1] CRAN (R 4.1.3) #> fastmap 1.1.0 2021-01-25 [1] CRAN (R 4.1.0) #> fs 1.5.0 2020-07-31 [1] CRAN (R 4.1.0) #> generics 0.1.2 2022-01-31 [1] CRAN (R 4.1.3) #> glue 1.6.2 2022-02-24 [1] CRAN (R 4.1.3) #> highr 0.9 2021-04-16 [1] CRAN (R 4.1.0) #> htmltools 0.5.2 2021-08-25 [1] CRAN (R 4.1.2) #> httr 1.4.3 2022-05-04 [1] CRAN (R 4.1.3) #> knitr 1.33 2021-04-24 [1] CRAN (R 4.1.0) #> kwb.datetime 0.5.0 2022-06-01 [1] Github (kwb-r/kwb.datetime@5f2b2c4) #> kwb.utils 0.12.0 2022-06-01 [1] Github (kwb-r/kwb.utils@9a63030) #> lifecycle 1.0.1 2021-09-24 [1] CRAN (R 4.1.1) #> magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.1.3) #> pillar 1.7.0 2022-02-01 [1] CRAN (R 4.1.3) #> pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.1.0) #> purrr 0.3.4 2020-04-17 [1] CRAN (R 4.1.0) #> R6 2.5.1 2021-08-19 [1] CRAN (R 4.1.1) #> reprex 2.0.0 2021-04-02 [1] CRAN (R 4.1.0) #> rlang 1.0.2 2022-03-04 [1] CRAN (R 4.1.3) #> rmarkdown 2.10 2021-08-06 [1] CRAN (R 4.1.0) #> rstudioapi 0.13 2020-11-12 [1] CRAN (R 4.1.0) #> rvest 1.0.2 2021-10-16 [1] CRAN (R 4.1.3) #> sessioninfo 1.1.1 2018-11-05 [1] CRAN (R 4.1.0) #> stringi 1.7.6 2021-11-29 [1] CRAN (R 4.1.2) #> stringr 1.4.0 2019-02-10 [1] CRAN (R 4.1.0) #> styler 1.4.1 2021-03-30 [1] CRAN (R 4.1.0) #> tibble 3.1.7 2022-05-03 [1] CRAN (R 4.1.3) #> tidyr 1.2.0 2022-02-01 [1] CRAN (R 4.1.3) #> tidyselect 1.1.2 2022-02-21 [1] CRAN (R 4.1.3) #> utf8 1.2.2 2021-07-24 [1] CRAN (R 4.1.3) #> vctrs 0.4.1 2022-04-13 [1] CRAN (R 4.1.3) #> wasserportal * 0.1.0 2022-06-01 [1] Github (kwb-r/wasserportal@2d2d65d) #> withr 2.5.0 2022-03-03 [1] CRAN (R 4.1.3) #> xfun 0.23 2021-05-15 [1] CRAN (R 4.1.0) #> xml2 1.3.3 2021-11-30 [1] CRAN (R 4.1.3) #> yaml 2.2.1 2020-02-01 [1] CRAN (R 4.1.0) #> #> [1] C:/Users/mrustl/Documents/R/win-library/4.1 #> [2] C:/Program Files/R/R-4.1.2/library ```