mcdlee

hosp_list <- read.csv("~/Dropbox/tmp/python/list.csv", fileEncoding="UTF-8")
gps <- read.csv("~/Dropbox/Public/kaohsiung_gps.csv")

attach(hosp_list)
hosp_list$clinicRef <- as.factor(clinicRef)
hosp_list$groupRef <- as.factor(groupRef)
hosp_list$hos1Ref <- as.factor(hos1Ref)
hosp_list$hos2Ref <- as.factor(hos2Ref)
hosp_list$hos3Ref <- as.factor(hos3Ref)
hosp_list$hos4Ref <- as.factor(hos4Ref)

mcdlee

library(shiny)
library(rCharts)

db <- read.csv("content/clinicGPS.csv")
for(i in 1:(length(db)-2)){
  db[[i]] <- as.factor(db[[i]])
}

filterList <- function (crit) {
  L1 <- subset(db, hos1Name==crit |hos2Name==crit |hos3Name==crit | hos4Name==crit, select=c(clinicName, lon, lat))

mcdlee

"","機構名稱","機構電話","機構地址","lon","lat"
"1","郵政總局郵政醫院","223956755","台北市中正區福州街14號",121.5187444,25.0287884
"2","天心中醫醫院","223615050","台北市中正區武昌街一段33號",121.512017,25.044235
"3","國立台灣大學醫學院附設醫院","02 23123456","台北市中正區中山南路7、8號；常德街1號",121.5183016,25.0407356
"4","台北市立聯合醫院","25523234","台北市大同區鄭州路145號",121.5093209,25.0509696
"5","行政院衛生署台北醫院城區分院","25521429","台北市大同區鄭州路40號",121.5085064,25.0501995
"6","協和婦女醫院","225072222","台北市中山區松江路85巷5號1，2，3，4樓、93巷6號1，4樓",121.5282095,25.0490351
"7","泰安醫院","225375633","台北市中山區民權東路二段92巷2之1號(地下一樓至地上六樓)",121.5316759,25.0614508
"8","財團法人台灣基督長老教會馬偕紀念社會事業基金會馬偕紀念醫院","225433535","台北市中山區中山北路二段92號",121.5226251,25.0588655
"9","福全醫院","225630555","台北市中山區民權東路二段48號",121.5305693,25.0623558

mcdlee

library(osmar)
library(ggplot2)
library(plyr)

api <- osmsource_api()
box <- corner_bbox(left = 120.610, bottom = 24.000, right = 120.750, top = 24.005)
osm_data <- get_osm(box, source=api)

i <- 1
start <- 24.005

mcdlee

#!/usr/bin/env python
#coding:UTF-8
import re
import json
import requests
import datetime
import pandas as pd

headers = {
    "Accept":"text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8",

mcdlee

mcdlee

Brlapi==0.6.1
Jinja2==2.8
Mako==0.9.1
Markdown==2.4
MarkupSafe==0.18
Markups==0.4
Pillow==2.3.0
Pygments==1.6
apturl==0.5.2ubuntu4
backports-abc==0.4

mcdlee

mcdlee

adaptForWeaker,address,county,defaultville,disastertype,isIndoor,isOutdoor,lat,lon,name,openstatus,peopleno,refugedno,shelterCode,shelterId,town,twd97x,twd97y,village
是,彰化縣北斗鎮斗中路712號,彰化縣,全鎮,"水災,震災",是,否,23.871139,120.534312,螺青國小,撤除,120人,,SN521-0003,1,北斗鎮,202572.75,2640828.38626,東光里
是,彰化縣北斗鎮新政里文苑路一段32號,彰化縣,全鎮,"水災,震災",是,否,23.875762,120.523284,北斗國小,撤除,220人,,SN521-0008,2,北斗鎮,201451.32,2641344.11155,新政里
是,374-2號,連江縣,介壽村,"水災,震災,土石流,海嘯",是,否,26.155,119.9533,連江縣體育館,撤除,200人,,SZ209-0001,3,南竿鄉,145351.57,2894136.82886,介壽村
是,374號,連江縣,介壽村,"水災,震災,土石流,海嘯",是,否,26.1541,119.9551,國立馬祖高中,撤除,200人,,SZ209-0002,4,南竿鄉,145530.75,2894035.66916,介壽村
是,156號,連江縣,介壽村,"水災,震災,土石流",是,否,26.1551,119.9575,老人活動中心,撤除,200人,,SZ209-0003,5,南竿鄉,145771.6,2894144.53265,介壽村
是,13號,連江縣,介壽村,"水災,震災,土石流,海嘯",是,否,26.1601,119.9551,介壽國中小學教室,撤除,500人,,SZ209-0004,6,南竿鄉,145536.09,2894700.4127,介壽村
是,港口,連江縣,福沃村,"水災,震災,土石流",是,否,26.1605,119.9494,福沃候船大樓,撤除,200人,,SZ209-0005,7,南竿鄉,144966.55,2894749.32417,福沃村
是,95號,連江縣,仁愛村,"水災,震災,土石流",是,否,26.1409,119.9311,仁愛國小教室,撤除,300人,,SZ209-00

mcdlee

import re

AJCC7 = {
   'lung': {
        'T': {'x', '0', 'is', '1', '1a', '1b', '2', '2a', '2b', '3', '4'},
        'N': {'x', '0', '1', '2', '3'},
        'M': {'x', '0', '1', '1a', '1b'}
    },
    'colon': {
        'T': {'x', '0', 'is', '1', '2', '3', '4', '4a', '4b'},