draft/getTwHgBadFacility.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getTwHgBadFacility <- function(){
  url <- sprintf("http://www.twhg.com.tw/_gps_target.php?lng=&lat=&x=%s", c(1:5))
  
  output <- list()
  for (i in 1:length(url)){
    res <- content(GET(url[i]),'text', encoding = 'utf8')
    data <- rjson::fromJSON(res)
    output[[i]] <- do.call(rbind, data)
  }
  
  #嫌惡設施 - 加油站 - 台灣房屋
  data <- output[[1]]
  title <- c(rep(NA, length(data))); lat <- c(rep(NA, length(data))); lng <- c(rep(NA, length(data)))
  for (i in 1:length(data)){
    title[i] <- data[,i][[1]]$title
    lat[i] <- data[,i][[1]]$lat
    lng[i] <- data[,i][[1]]$lng
  }
  gasstation <- data.frame(brand_nm = '加油站', store_nm = title, lat = lat, lng = lng, stringsAsFactors = FALSE)
  gasstation$store_nm <- gsub("加油站 - ", "", gas_station$store_nm)
  
  #嫌惡設施 - 變電所 - 台灣房屋
  data <- output[[2]]
  title <- c(rep(NA, length(data))); lat <- c(rep(NA, length(data))); lng <- c(rep(NA, length(data)))
  for (i in 1:length(data)){
    title[i] <- data[,i][[1]]$title
    lat[i] <- data[,i][[1]]$lat
    lng[i] <- data[,i][[1]]$lng
  }
  substation <- data.frame(brand_nm = '變電所', store_nm = title, lat = lat, lng = lng, stringsAsFactors = FALSE)
  substation$store_nm <- gsub("變電所 - ", "", substation$store_nm)
  
  
  #嫌惡設施 - 高壓電塔 - 台灣房屋
  data <- output[[3]]
  title <- c(rep(NA, length(data))); lat <- c(rep(NA, length(data))); lng <- c(rep(NA, length(data)))
  for (i in 1:length(data)){
    title[i] <- data[,i][[1]]$title
    lat[i] <- data[,i][[1]]$lat
    lng[i] <- data[,i][[1]]$lng
  }
  high_voltage_tower <- data.frame(brand_nm = '高壓電塔', store_nm = title, lat = lat, lng = lng, stringsAsFactors = FALSE)
  high_voltage_tower$store_nm <- gsub("高壓電塔 - ", "", high_voltage_tower$store_nm)
  
  #嫌惡設施 - 殯儀館 - 台灣房屋
  data <- output[[4]]
  title <- c(rep(NA, length(data))); lat <- c(rep(NA, length(data))); lng <- c(rep(NA, length(data)))
  for (i in 1:length(data)){
    title[i] <- data[,i][[1]]$title
    lat[i] <- data[,i][[1]]$lat
    lng[i] <- data[,i][[1]]$lng
  }
  funeral_parlor <- data.frame(brand_nm = '殯儀館', store_nm = title, lat = lat, lng = lng, stringsAsFactors = FALSE)
  funeral_parlor$store_nm <- gsub("殯儀館 - ", "", funeral_parlor$store_nm)
  
  #嫌惡設施 - 垃圾場 - 台灣房屋
  data <- output[[5]]
  title <- c(rep(NA, length(data))); lat <- c(rep(NA, length(data))); lng <- c(rep(NA, length(data)))
  for (i in 1:length(data)){
    title[i] <- data[,i][[1]]$title
    lat[i] <- data[,i][[1]]$lat
    lng[i] <- data[,i][[1]]$lng
  }
  waste_yard <- data.frame(brand_nm = '垃圾場', store_nm = title, lat = lat, lng = lng, stringsAsFactors = FALSE)
  waste_yard$store_nm <- gsub("垃圾場 - ", "", waste_yard$store_nm)
  
  final_output <- rbind(gasstation, substation, high_voltage_tower, funeral_parlor, waste_yard)
}