Versions Compared

Old Version 2

changes.mady.by.user Unknown User (conlon)

Saved on

compared with

New Version 3

changes.mady.by.user Unknown User (vivoadmin)

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Panel

get.vivo.grant<-function(raw.uri){
#

  1. Given a raw.uri (without the rdf filetype) of a VIVO grant RDF page,
  2. return basic facts about the grant. Dereference as needed. Missing
  3. attributes are returned as NA
    #
    uri <- make.vivo.uri(raw.uri)
    x <- xmlParse(uri)
    title <- get.vivo.attribute(x,"label","http://www.w3.org/2000/01/rdf-schema#")
    sponsor.award.id <- get.vivo.attribute(x,"sponsorAwardId","http://vivo.ufl.edu/ontology/vivo-ufl/")
    total.award.amount <- get.vivo.attribute(x,"totalAwardAmount")
    ps.contract.number <- get.vivo.attribute(x,"psContractNumber","http://vivo.ufl.edu/ontology/vivo- ufl/")
    dates <- get.vivo.datetimeinterval(error)
    grant.awarded.by <- get.vivo.grant.awarded.by(error)
    list(title=title,
    total.award.amount=total.award.amount,sponsor.award.id=sponsor.award.id,
    ps.contract.number=ps.contract.number,start=dates$start,end=dates$end,
    grant.awarded.by=grant.awarded.by)
    }

Sample run

No Format

 &gt;> grant.raw&lt;raw<-"http://vivo.ufl.edu/individual/n768443563"
 &gt;> get.vivo.grant(grant.raw)
 [1] "http://vivo.ufl.edu/individual/n3601856/n3601856.rdf"
 $title
 [1] "Palm Beach County Health Community Access Program"

 $total.award.amount
 [1] "47578.00"

 $sponsor.award.id
 [1] NA

 $ps.contract.number
 [1] "00056757"

 $start
 [1] "2005-05-12"

 $end
 [1] "2006-08-31"

 $grant.awarded.by
 [1] "US DEPT OF TRANSPORTATION"

...