[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:1:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L1) *style:* **functions should have cyclomatic complexity of less than 15, this has 18.**
```r
shinyServer(function(input, output, session) {
^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:5:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L5) *style:* **Lines should not be more than 80 characters.**
```r
    "href=http://www.ine.es/ss/Satellite?L=es_ES&c=Page&cid=1259952026632&p=1259952026632&pagename=ProductosYServicios%2FPYSLayout target=_blank>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:6:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L6) *style:* **Lines should not be more than 80 characters.**
```r
    "data publicly available at the Spanish \'Instituto Nacional de Estadística\'</a><hr> Population data extracted thanks to ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:7:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
    "<a href=https://www.ine.es/dyngs/INEbase/es/operacion.htm?c=Estadistica_C&cid=1254736177012&menu=resultados&secc=1254736195461&idp=1254734710990 target=_blank>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:8:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
    "the publicly available information at the Spanish \'Instituto Nacional de Estadística\'</a><hr>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:9:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
    "Source code available at <a href=https://github.com/DrumSergio/secciones-nacionalidades target=_blank>GitHub</a><br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:10:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L10) *style:* **Lines should not be more than 80 characters.**
```r
    "Docker container avaialble at <a href=https://hub.docker.com/r/drumsergio/secciones-nacionalidades target=_blank>DockerHub</a>")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:12:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L12) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:13:3:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L13) *style:* **Variable and function name style should be snake_case.**
```r
  clickedIds <- reactiveValues(ids = vector())
  ^~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:14:3:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L14) *style:* **Variable and function name style should be snake_case.**
```r
  nationalitySaved <- reactiveValues(ids = vector())
  ^~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:15:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L15) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:16:38:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L16) *style:* **Commas should always have a space after.**
```r
  observeEvent(input$selectMunicipio,{
                                     ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:19:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L19) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:20:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L20) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:21:38:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L21) *style:* **Commas should always have a space after.**
```r
  observeEvent(input$selectProvincia,{
                                     ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:22:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L22) *style:* **Lines should not be more than 80 characters.**
```r
    provincia <- provincias$ID[which(input$selectProvincia == provincias$Nombre)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:23:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
    municipiosElegibles <<- municipios$NOMBRE[which(provincia == municipios$CPRO)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:23:5:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L23) *style:* **Variable and function name style should be snake_case.**
```r
    municipiosElegibles <<- municipios$NOMBRE[which(provincia == municipios$CPRO)]
    ^~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:24:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
    updateSelectizeInput(session = session, "selectMunicipio", choices = municipiosElegibles)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:26:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L26) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:28:7:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(input$porcentaje == T){
      ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:28:29:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L28) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
    if(input$porcentaje == T){
                            ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:29:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L29) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(nationalitySaved$n != "Total Población")
        ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:30:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L30) *style:* **Lines should not be more than 80 characters.**
```r
        updateSelectizeInput(session, "selectNacionalidad", choices = levels(SXnacionalAmbos$nacionalidad)[-1], selected = nationalitySaved$n)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:32:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
        updateSelectizeInput(session, "selectNacionalidad", choices = levels(SXnacionalAmbos$nacionalidad)[-1])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:35:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L35) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:36:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L36) *style:* **Lines should not be more than 80 characters.**
```r
      updateSelectizeInput(session, "selectNacionalidad", choices = levels(SXnacionalAmbos$nacionalidad), selected = nationalitySaved$n)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:39:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L39) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:42:7:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L42) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!is.null(input$selectMunicipio)){
      ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:42:39:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L42) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
    if(!is.null(input$selectMunicipio)){
                                      ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:43:57:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L43) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
      #if(input$selectMunicipio %in% municipiosElegibles){
                                                        ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:44:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L44) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:45:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L45) *style:* **Lines should not be more than 80 characters.**
```r
        output$mapa <- simplyMapIt(porcentaje = input$porcentaje, hombreMujer = input$hombreMujer, municipioSelected = input$selectMunicipio,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:46:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L46) *style:* **Lines should not be more than 80 characters.**
```r
                                   nacionalidadSelected = input$selectNacionalidad, SXnacionalAmbos = SXnacionalAmbos, SXnacionalHombres = SXnacionalHombres,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:51:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L51) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:54:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L54) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:55:7:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L55) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(is.null(click$id))
      ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:57:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L57) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:60:5:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L60) *style:* **Variable and function name style should be snake_case.**
```r
    clickedPolys <<- capa_sp[capa_sp@data$seccionCensal %in% clickedIds$ids, ]
    ^~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:61:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L61) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:62:7:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L62) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(click$id %in% clickedPolys@data$download){
      ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:62:48:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L62) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
    if(click$id %in% clickedPolys@data$download){
                                               ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:63:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L63) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:64:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L64) *style:* **Lines should not be more than 80 characters.**
```r
      nameMatch <- clickedPolys@data$seccionCensal[clickedPolys@data$download == click$id]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:64:7:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L64) *style:* **Variable and function name style should be snake_case.**
```r
      nameMatch <- clickedPolys@data$seccionCensal[clickedPolys@data$download == click$id]
      ^~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:65:70:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L65) *style:* **Trailing whitespace is superfluous.**
```r
      clickedIds$ids <- clickedIds$ids[!clickedIds$ids %in% click$id]
                                                                     ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:68:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L68) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:69:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L69) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(clickedIds$ids) == 0) {
        ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:72:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L72) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:74:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L74) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:76:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L76) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:86:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L86) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:89:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L89) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:90:10:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L90) *style:* **Variable and function name style should be snake_case.**
```r
  output$descargaKML <- downloadHandler(
         ^~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:92:36:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L92) *style:* **Commas should always have a space after.**
```r
      paste0(input$selectMunicipio,".kml")
                                   ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:95:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L95) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:96:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L96) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if("porcentajePoblacion" %in% colnames(clickedPolys@data)){
        ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:96:64:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L96) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
      if("porcentajePoblacion" %in% colnames(clickedPolys@data)){
                                                               ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:97:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L97) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if("numPoblacionElegidaHombres" %in% colnames(clickedPolys@data)){
          ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:97:73:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L97) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
        if("numPoblacionElegidaHombres" %in% colnames(clickedPolys@data)){
                                                                        ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:98:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L98) *style:* **Lines should not be more than 80 characters.**
```r
          plotKML::kml(obj = clickedPolys, file = file, kmz = F, colour = "green", alpha = 0.5,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:99:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L99) *style:* **Lines should not be more than 80 characters.**
```r
                       html.table = paste0("Poblacion - ", clickedPolys@data$numPoblacionElegida, "<br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:100:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L100) *style:* **Lines should not be more than 80 characters.**
```r
                                           "Porcentaje - ", round(clickedPolys@data$porcentajePoblacion, digits = 2), "%<br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:101:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L101) *style:* **Lines should not be more than 80 characters.**
```r
                                           "Hombres - ", clickedPolys@data$numPoblacionElegidaHombres, "<br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:102:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L102) *style:* **Lines should not be more than 80 characters.**
```r
                                           "Mujeres - ", clickedPolys@data$numPoblacionElegidaMujeres),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:103:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L103) *style:* **Lines should not be more than 80 characters.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:103:107:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L103) *style:* **Trailing whitespace is superfluous.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
                                                                                ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:106:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L106) *style:* **Lines should not be more than 80 characters.**
```r
          plotKML::kml(obj = clickedPolys, file = file, kmz = F, colour = "green", alpha = 0.5,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:107:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L107) *style:* **Lines should not be more than 80 characters.**
```r
                       html.table = paste0("Poblacion - <b>", clickedPolys@data$numPoblacionElegida, "</b><br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:108:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L108) *style:* **Lines should not be more than 80 characters.**
```r
                                           "Porcentaje - <b>", round(clickedPolys@data$porcentajePoblacion, digits = 2), "%</b>"),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:109:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L109) *style:* **Lines should not be more than 80 characters.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:109:107:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L109) *style:* **Trailing whitespace is superfluous.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
                                                                                ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:113:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L113) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if("numPoblacionElegidaHombres" %in% colnames(clickedPolys@data)){
          ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:113:73:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L113) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
        if("numPoblacionElegidaHombres" %in% colnames(clickedPolys@data)){
                                                                        ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:114:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L114) *style:* **Lines should not be more than 80 characters.**
```r
          plotKML::kml(obj = clickedPolys, file = file, kmz = F, colour = "green", alpha = 0.5,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:115:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L115) *style:* **Lines should not be more than 80 characters.**
```r
                       html.table = paste0("Poblacion - ", clickedPolys@data$numPoblacionElegida, "<br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:116:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L116) *style:* **Lines should not be more than 80 characters.**
```r
                                           "Hombres - ", clickedPolys@data$numPoblacionElegidaHombres, "<br>",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:117:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L117) *style:* **Lines should not be more than 80 characters.**
```r
                                           "Mujeres - ", clickedPolys@data$numPoblacionElegidaMujeres),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:118:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:118:107:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L118) *style:* **Trailing whitespace is superfluous.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
                                                                                ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:121:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L121) *style:* **Lines should not be more than 80 characters.**
```r
          plotKML::kml(obj = clickedPolys, file = file, kmz = F, colour = "green", alpha = 0.5,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:122:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L122) *style:* **Lines should not be more than 80 characters.**
```r
                       html.table = paste0("Poblacion - ", clickedPolys@data$numPoblacionElegida),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:123:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L123) *style:* **Lines should not be more than 80 characters.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:123:107:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L123) *style:* **Trailing whitespace is superfluous.**
```r
                       labels = paste0("Seccion Censal ", clickedPolys@data$CDIS, clickedPolys@data$CSEC))
                                                                                ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:128:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L128) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:129:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L129) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:135:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L135) *style:* **Lines should not be more than 80 characters.**
```r
    provincia2 <<- as.numeric(provincias$ID[which(input$selectProvincia2 == provincias$Nombre)])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:136:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L136) *style:* **Lines should not be more than 80 characters.**
```r
    municipiosElegibles2 <<- municipios$NOMBRE[which(provincia2 == municipios$CPRO)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:136:5:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L136) *style:* **Variable and function name style should be snake_case.**
```r
    municipiosElegibles2 <<- municipios$NOMBRE[which(provincia2 == municipios$CPRO)]
    ^~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:137:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L137) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:139:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L139) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:140:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L140) *style:* **Lines should not be more than 80 characters.**
```r
      nacionalidad <- SXnacionalAmbos[which(input$selectNacionalidad2 == SXnacionalAmbos$nacionalidad), ]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:141:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L141) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:142:78:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L142) *style:* **Commas should always have a space after.**
```r
      capa <- secciones[secciones@data$CPRO %in% sprintf("%02d", provincia2),]
                                                                             ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:143:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L143) *style:* **Lines should not be more than 80 characters.**
```r
      capa@data$seccionCensal <- paste0(capa@data$CUMUN, capa@data$CDIS, capa@data$CSEC)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:143:17:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L143) *style:* **Variable and function name style should be snake_case.**
```r
      capa@data$seccionCensal <- paste0(capa@data$CUMUN, capa@data$CDIS, capa@data$CSEC)
                ^~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:144:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L144) *style:* **Lines should not be more than 80 characters.**
```r
      capa@data$numPoblacionElegida <- nacionalidad[match(capa@data$seccionCensal, nacionalidad$sección), "value"]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:144:17:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L144) *style:* **Variable and function name style should be snake_case.**
```r
      capa@data$numPoblacionElegida <- nacionalidad[match(capa@data$seccionCensal, nacionalidad$sección), "value"]
                ^~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:145:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L145) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:146:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L146) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(input$manWoman){
        ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:146:24:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L146) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
      if(input$manWoman){
                       ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:147:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L147) *style:* **Lines should not be more than 80 characters.**
```r
        nacionalidadHombres <- SXnacionalHombres[which(input$selectNacionalidad2 == SXnacionalHombres$nacionalidad), ]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:147:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L147) *style:* **Variable and function name style should be snake_case.**
```r
        nacionalidadHombres <- SXnacionalHombres[which(input$selectNacionalidad2 == SXnacionalHombres$nacionalidad), ]
        ^~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:148:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L148) *style:* **Lines should not be more than 80 characters.**
```r
        nacionalidadMujeres <- SXnacionalMujeres[which(input$selectNacionalidad2 == SXnacionalMujeres$nacionalidad), ]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:148:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L148) *style:* **Variable and function name style should be snake_case.**
```r
        nacionalidadMujeres <- SXnacionalMujeres[which(input$selectNacionalidad2 == SXnacionalMujeres$nacionalidad), ]
        ^~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:150:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L150) *style:* **Lines should not be more than 80 characters.**
```r
        capa@data$hombres <- nacionalidadHombres[match(capa@data$seccionCensal, nacionalidadHombres$sección), "value"]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:151:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L151) *style:* **Lines should not be more than 80 characters.**
```r
        capa@data$mujeres <- nacionalidadMujeres[match(capa@data$seccionCensal, nacionalidadMujeres$sección), "value"]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:152:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L152) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:153:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L153) *style:* **Lines should not be more than 80 characters.**
```r
        datos_agregadosH <- aggregate(capa@data$hombres, by = list(Municipio=capa@data$NMUN), FUN = sum)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:153:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L153) *style:* **Variable and function name style should be snake_case.**
```r
        datos_agregadosH <- aggregate(capa@data$hombres, by = list(Municipio=capa@data$NMUN), FUN = sum)
        ^~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:153:77:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L153) *style:* **Put spaces around all infix operators.**
```r
        datos_agregadosH <- aggregate(capa@data$hombres, by = list(Municipio=capa@data$NMUN), FUN = sum)
                                                                           ~^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:154:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L154) *style:* **Lines should not be more than 80 characters.**
```r
        datos_agregadosM <- aggregate(capa@data$mujeres, by = list(Municipio=capa@data$NMUN), FUN = sum)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:154:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L154) *style:* **Variable and function name style should be snake_case.**
```r
        datos_agregadosM <- aggregate(capa@data$mujeres, by = list(Municipio=capa@data$NMUN), FUN = sum)
        ^~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:154:77:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L154) *style:* **Put spaces around all infix operators.**
```r
        datos_agregadosM <- aggregate(capa@data$mujeres, by = list(Municipio=capa@data$NMUN), FUN = sum)
                                                                           ~^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:156:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L156) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:157:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L157) *style:* **Lines should not be more than 80 characters.**
```r
      datos_agregados <- aggregate(capa@data$numPoblacionElegida, by = list(Municipio=capa@data$NMUN), FUN = sum)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:157:86:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L157) *style:* **Put spaces around all infix operators.**
```r
      datos_agregados <- aggregate(capa@data$numPoblacionElegida, by = list(Municipio=capa@data$NMUN), FUN = sum)
                                                                                ~^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:157:114:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L157) *style:* **Trailing whitespace is superfluous.**
```r
      datos_agregados <- aggregate(capa@data$numPoblacionElegida, by = list(Municipio=capa@data$NMUN), FUN = sum)
                                                                                ^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:158:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L158) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:159:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L159) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(input$percentage2){
        ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:159:27:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L159) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
      if(input$percentage2){
                          ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:160:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L160) *style:* **Lines should not be more than 80 characters.**
```r
        nacionalidad <- SXnacionalAmbos[which("Total Población" == SXnacionalAmbos$nacionalidad), ]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:161:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L161) *style:* **Lines should not be more than 80 characters.**
```r
        capa@data$numPoblacionTOTAL <- nacionalidad[match(capa@data$seccionCensal, nacionalidad$sección), "value"]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:161:19:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L161) *style:* **Variable and function name style should be snake_case.**
```r
        capa@data$numPoblacionTOTAL <- nacionalidad[match(capa@data$seccionCensal, nacionalidad$sección), "value"]
                  ^~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:162:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L162) *style:* **Lines should not be more than 80 characters.**
```r
        datos_agregadosT <- aggregate(capa@data$numPoblacionTOTAL, by = list(Municipio=capa@data$NMUN), FUN = sum)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:162:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L162) *style:* **Variable and function name style should be snake_case.**
```r
        datos_agregadosT <- aggregate(capa@data$numPoblacionTOTAL, by = list(Municipio=capa@data$NMUN), FUN = sum)
        ^~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:162:87:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L162) *style:* **Put spaces around all infix operators.**
```r
        datos_agregadosT <- aggregate(capa@data$numPoblacionTOTAL, by = list(Municipio=capa@data$NMUN), FUN = sum)
                                                                                ~^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:163:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L163) *style:* **Variable and function name style should be snake_case.**
```r
        datos_agregadosTP <- datos_agregadosT
        ^~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:164:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L164) *style:* **Lines should not be more than 80 characters.**
```r
        datos_agregadosTP$x <- round(100 * as.numeric(datos_agregados$x) / as.numeric(datos_agregadosT$x), digits = 2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:166:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L166) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:167:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L167) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:168:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L168) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:169:9:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L169) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(input$sort) {
        ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:170:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L170) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(input$manWoman){
          ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:170:26:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L170) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
        if(input$manWoman){
                         ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:171:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L171) *style:* **Lines should not be more than 80 characters.**
```r
          datos_agregadosH <- datos_agregadosH[order(datos_agregados$x, decreasing = T),]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:171:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L171) *style:* **Variable and function name style should be snake_case.**
```r
          datos_agregadosH <- datos_agregadosH[order(datos_agregados$x, decreasing = T),]
          ^~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:171:89:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L171) *style:* **Commas should always have a space after.**
```r
          datos_agregadosH <- datos_agregadosH[order(datos_agregados$x, decreasing = T),]
                                                                                ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:172:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L172) *style:* **Lines should not be more than 80 characters.**
```r
          datos_agregadosM <- datos_agregadosM[order(datos_agregados$x, decreasing = T),]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:172:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L172) *style:* **Variable and function name style should be snake_case.**
```r
          datos_agregadosM <- datos_agregadosM[order(datos_agregados$x, decreasing = T),]
          ^~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:172:89:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L172) *style:* **Commas should always have a space after.**
```r
          datos_agregadosM <- datos_agregadosM[order(datos_agregados$x, decreasing = T),]
                                                                                ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:174:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L174) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(input$percentage2){
          ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:174:29:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L174) *style:* **There should be a space between right parenthesis and an opening curly brace.**
```r
        if(input$percentage2){
                            ^~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:175:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L175) *style:* **Lines should not be more than 80 characters.**
```r
          datos_agregadosTP <- datos_agregadosTP[order(datos_agregados$x, decreasing = T),]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:175:11:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L175) *style:* **Variable and function name style should be snake_case.**
```r
          datos_agregadosTP <- datos_agregadosTP[order(datos_agregados$x, decreasing = T),]
          ^~~~~~~~~~~~~~~~~
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:175:91:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L175) *style:* **Commas should always have a space after.**
```r
          datos_agregadosTP <- datos_agregadosTP[order(datos_agregados$x, decreasing = T),]
                                                                                ^
```
[/home/travis/build/DrumSergio/secciones-nacionalidades/server.R:177:1:](https://github.com/DrumSergio/secciones-nacionalidades/blob/861761dd5c48ecd1a8bb96e0cc3cb806aadc7bd6//home/travis/build/DrumSergio/secciones-nacionalidades/server.R#L177) *style:* **Lines should not be more than 80 characters.**
```r
        datos_agregados <- datos_agregados[order(datos_agregados$x, decreasing = T),]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```