Nothing
# Copyright (c) 2015 by Sean Downey
# Authors: Sean Downey (sean@codexdata.com) and Guowei Sun (gwsun@umd.edu)
# This software is distributed under GPL-3.
encode.ALINE <-
function(x, mark=FALSE, m1=NULL, m2=NULL){
map<-map(m1,m2)
v<-intToUtf8(c(65:90, 97:122), multiple=T)
`%nin%` <- function (x, table) match(x, table, nomatch = 0L) == 0L
sapply(x, USE.NAMES=T, FUN=function (word){
out<-""
for (i in unlist(strsplit(word, "")) ){
catch<-FALSE
for(j in 1:nrow(map)){
# if( utf8ToInt(i) == map$IPA[j] ){
if( utf8ToInt(i) == map$U.Val[j] ){
i <- intToUtf8(unlist(strsplit(as.character(map$A.Val[j]), " ")))
catch<-TRUE
break
}
}
if (!catch && i %nin% v){
message(paste("Invalid character:",i,"in",word))
i <- ifelse(mark,'@','')
}
out<-append(out,i)
}
paste(out,sep='',collapse='')
}
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.