Create an object to record the following dog's information

[tpemartin]

https://act-adopt.ahiqo.ntpc.gov.tw/Detail/Index?AId=88136

[Christychenn]

obs_template =alist(
  IDnumber=,
  Cage=,
  Calor=,
  Breed=,
  Size=,
  Gender=,
  Age=,
  Feature=,
  AdoptionDate=,
  FindLocation=,
  Reason=,
  Located=,
)

obs_template$Cage <-"A2"
obs_template$Calor <-"Yellow"
obs_template$Breed <-"Mix"
obs_template$Size <-"Medium"
obs_template$Gender <-"F"
obs_template$Age <-"puppy"
obs_template$Feature <- "N/A"
obs_template$AdoptionDate <-"2022/04/12"
obs_template$FindLocation <-"淡水區興仁里站子後11號"
obs_template$Reason <- "政府捕捉"
obs_template$IDnumber<-"N/A"
obs_template$Located <-"淡水動物之家"

[Christychenn]

obs_template =alist(
  IDnumber=,
  Cage=,
  AdoptionNumber=,
  Feature=,
  AdoptionDate=,
  FindLocation=,
  Reason=,
  Located=,
)

特徵放一起

obs_dogs <-obs_template
obs_dogs$Cage<-"A2"
obs_dogs$AdoptionNumber <-"淡水2022041202"
obs_dogs$Feature<-list(breed="mix",colar="yellow",size="medium",gender="F",age="6 months",others="N/A")
obs_dogs$AdoptionDate <-"2022/04/12"
obs_dogs$FindLocation <-"淡水區興仁里站子後11號"
obs_dogs$Reason <- "政府捕捉"
obs_dogs$IDnumber<-"N/A"
obs_dogs$Located <-list("淡水動物之家",地址="新北市淡水區下圭柔山91-3號",電話="26267558",開放時間="周一至周五上午10時-12時下午14時-16時")
obs_dogs