URLエンコード
> jsub<-"テスト" > jsub [1] "テスト" > URLencode(jsub) [1] "%83%65%83%58%83%67"
>library(foreign) >URLencode(iconv(jsub,'SHIFT_JIS','UTF-8')) [1] "%e3%83%86%e3%82%b9%e3%83%88"
URLエンコード
> jsub<-"テスト" > jsub [1] "テスト" > URLencode(jsub) [1] "%83%65%83%58%83%67"
>library(foreign) >URLencode(iconv(jsub,'SHIFT_JIS','UTF-8')) [1] "%e3%83%86%e3%82%b9%e3%83%88"