Description Usage Arguments Value See Also Examples
View source: R/processPatentData.R
Input a valid Google Patents URL of the form given below and then get back a claim from the index of your choosing. If no claim exists or if your index is out of bounds, an empty character string returns.
The function works on strings that begin with the following sequence:
https://patents.google.com/patent/
. If the string sequence afterwards
is invalid, a 404 status returns from the GET command and eventually an empty
string returns.
1 | getClaimFromURL(googleURL, langCode = "en", whichClaim = 1)
|
googleURL |
The well-formatted google URL built from |
langCode |
The language code, used check for non-english text. |
whichClaim |
Default set to 1, a numeric determining which claim to get. Note if claim is out of bounds, the return claim will be a blank character. |
A character vector of the claim from each Google URL. If no claim exists, or if the country code is not on the inclusion list, an empty character value is returned for that index.
createGoogleURL
, extractCountryCode
,
cleanGoogleURL
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ## Not run:
# works for USA
aclaim <- getClaimFromURL("https://patents.google.com/patent/US8818682B1/en")
print(aclaim)
# test WO, EP
woclaim <- getClaimFromURL("https://patents.google.com/patent/WO2015134152A1/en")
print(woclaim)
epclaim <- getClaimFromURL("https://patents.google.com/patent/EP2991875A1/en")
print(epclaim)
# test KR, JP, CN
krclaim <- getClaimFromURL("https://patents.google.com/patent/KR20150127745A/en")
cnclaim <- getClaimFromURL("https://patents.google.com/patent/CN104786953A/en")
jpclaim <- getClaimFromURL("https://patents.google.com/patent/JP2016173842A/en")
declaim <- getClaimFromURL("https://patents.google.com/patent/DE102014219223A1/en")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.