Connection Error: divipola_table() fails to reach DIVIPOLA.csv

Please place an "x" in all the boxes that apply
---------------------------------------------

- [x] I have the most recent version of this package and R
- [ ] I have found a bug
- [x] I have a [reproducible example](http://reprex.tidyverse.org/articles/reprex-dos-and-donts.html)
- [ ] I want to request a new feature

--------

When you run `divipola_table()` it cannot reach out [https://tracelac.uniandes.edu.co:9000/colopendata/support/DIVIPOLA.csv](https://tracelac.uniandes.edu.co:9000/colopendata/support/DIVIPOLA.csv):

```r
library(ColOpenData)

# Attempting to fetch the DIVIPOLA table
div_data <- divipola_table()
#> Error in `file()`:
#> ! cannot open the connection to 'https://tracelac.uniandes.edu.co:9000/colopendata/support/DIVIPOLA.csv'
head(div_data)
#> Error:
#> ! object 'div_data' not found
```
For example I get the following for [https://tracelac.uniandes.edu.co:9000/colopendata/support/DIVIPOLA.csv](https://tracelac.uniandes.edu.co:9000/colopendata/support/DIVIPOLA.csv):

```r
library(httr)
response <- GET("https://tracelac.uniandes.edu.co:9000/colopendata/support/DIVIPOLA.csv")
status_code(response)
#> [1] 503
```
Where the connection is refused. I don't know if the problem is server maintenance, capacity issues, that the service is down or another reason.

---------