Function

コメント・参照等
  • Webページの文字コードを取得する関数

FUN = f_get_page_encode.r
function (url) 
{
    markup <- paste0(readLines(con = url), collapse = "")
    if (grepl("charset", markup, ignore.case = T)) {
        encoding <- gsub(".+meta[^>]+charset=\"*([^(\"|[:space:])]+).+", "\\1", markup, ignore.case = T)
    }
    else {
        encoding <- NULL
    }
    return(encoding)
}