url <- “XXXXXXX”
text <- readLines(con = url, encoding = "UTF-8", warn = F)
CGenusName <- gsub(pattern = ".* (\\\"CGenusName.*), \\\"SPName\\\".*", replacement = "\\1",
x = text)
CGenusName
## [1] "\"CGenusName\": \"\\u6728\\u9EBB\\u9EC4\\u5C5E\""
想要读取一个网页的源代码。
但是该网页不显示汉字,只显示编码。
[{ "LevelName": "Species", "LevelCode": "05", "ID": "5164", "OK_ID": "", "Family": "599", "SName": "massoniana", "Genus": "5123", "FamilyName": "Pinaceae", "GenusName": "Pinus", "CFamilyName": "\u677E\u79D1", "CGenusName": "\u677E\u5C5E", "SPName": "Pinus massoniana", "Name_La": "Pinus massoniana Lamb. ", "SAuthor": "Lamb.", "SNamePrefix": "", "Name_Zh": "\u9A6C\u5C3E\u677E", "ReferDate": "1842", "Nomen": "", "Preferred": "Yes", "PhotoID": "00cdc126-ea86-40ef-8dcc-e25892e6f2a3", "PhotoCount": 4177},{ "LevelName": "Species", "LevelCode": "05", "ID": "11224", "OK_ID": "", "Family": "680", "SName": "equisetifolia", "Genus": "11223", "FamilyName": "Casuarinaceae", "GenusName": "Casuarina", "CFamilyName": "\u6728\u9EBB\u9EC4\u79D1", "CGenusName": "\u6728\u9EBB\u9EC4\u5C5E", "SPName": "Casuarina equisetifolia", "Name_La": "Casuarina equisetifolia Forst.", "SAuthor": "J.R. Forst. & G. Forst.", "SNamePrefix": "", "Name_Zh": "\u6728\u9EBB\u9EC4", "ReferDate": "", "Nomen": "", "Preferred": "Yes", "PhotoID": "007be4a2-8916-45a6-82d6-28283121c24e", "PhotoCount": 2124}]
所以我想试一下解决,怎样把编码转化成汉字呢?