Merge branch 'patch-1' into 'master'

Add scraper de viviendas turisticas comunitat valenciana

See merge request !1

scraping/scraping-viviendas-turisticas-comunitat-valenciana.R

+#- scrapping airbnb: http://comunitatvalenciana.com/viaje/alojamiento/viviendas-turisticas
+library("rvest")
+library("tidyverse")
+content <- read_html("http://comunitatvalenciana.com/viaje/alojamiento/viviendas-turisticas?page=1")
+
+body_table <- content %>% html_nodes('body')  %>%
+                    html_nodes('table') %>%
+                    html_table(dec = ",") 
+my_table <- body_table[[1]]
+
+adress <- "http://comunitatvalenciana.com/viaje/alojamiento/viviendas-turisticas?page="
+
+#- hay 3642 paginas
+my_names <-names(my_table)
+
+#- 76 peta x Error in match.names(clabs, names(xi)) :   names do not match previous names
+n_pags  <- 3642
+for (ii in 2:n_pags){   #- n_pags
+    adress_n <- paste0(adress, ii)
+    content_n <- read_html(adress_n)
+    
+    body_table_n <- content_n %>% html_nodes('body')  %>%
+                    html_nodes('table') %>%
+                    html_table(dec = ",") 
+     my_table_n <- body_table_n[[1]]
+     names(my_table_n) <- my_names
+     my_table <- rbind(my_table, my_table_n)
+     print(ii)
+}
\ No newline at end of file