The R Project SVN R

Rev

Rev 73207 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 73207 Rev 78661
Line 39... Line 39...
39 
%%   \url{https://partners.adobe.com/public/developer/en/opentype/glyphlist.txt}
 39 
%%   \url{https://partners.adobe.com/public/developer/en/opentype/glyphlist.txt}
40 
%% }
 40 
%% }
41 
\examples{
 41 
\examples{
42 
## find Adobe names for ISOLatin2 chars.
 42 
## find Adobe names for ISOLatin2 chars.
43 
latin2 <- charset_to_Unicode[, "ISOLatin2"]
 43 
latin2 <- charset_to_Unicode[, "ISOLatin2"]
44 
aUnicode <- as.numeric(paste0("0x", Adobe_glyphs$unicode))
 44 
aUnicode <- as.hexmode(paste0("0x", Adobe_glyphs$unicode))
45 
keep <- aUnicode \%in\% latin2
 45 
keep <- aUnicode \%in\% latin2
46 
aUnicode <- aUnicode[keep]
 46 
aUnicode <- aUnicode[keep]
47 
aAdobe <- Adobe_glyphs[keep, 1]
 47 
aAdobe <- Adobe_glyphs[keep, 1]
48 
## first match
 48 
## first match
49 
aLatin2 <- aAdobe[match(latin2, aUnicode)]
 49 
aLatin2 <- aAdobe[match(latin2, aUnicode)]