# \donttest{
# Check status of specific stations
my_stations <- c("07G/50", "25G/07", "INVALID_ID")
status_check <- check_station_status(my_stations)
print(status_check)
# Check which stations are not active
inactive <- status_check[active == FALSE | is.na(active)]
if (nrow(inactive) > 0) {
print("Stations requiring attention:")
print(inactive)
}
# Check only active stations
active_stations <- status_check[active == TRUE]
# }
Run the code above in your browser using DataLab