범위에서 텍스트를 긁어 모으는 rvest

Question

나는이 페이지에서 바로 좌표를 얻으려고합니다. http://hol.osu.edu/spmInfo.html?id=CMNHENT0042647. 텍스트를 얻으려고하면 " "이 반환됩니다.

library(rvest) 

ID<-"CMNHENT0042647" 

HOLWebSite<-read_html("http://hol.osu.edu/spmInfo.html?id=",ID) 

Coords<-HOLWebSite%>% 
    html_nodes("span#hymSpmCoordsID.boldedText")%>% 
    html_text() 

범위에 포함 되었습니까?

Answer 1

당신은 이런 식으로 잡을 수 있습니다

library(httr) 
library(jsonlite) 

get_specimen_info <- function(specimen) { 

    GET(
    url = "http://hol.osu.edu/hymDB/OJ_Break.getSpmInfo", 
    query = list(
     cuid = specimen, 
     callback = "", 
     noCacheIE = round(as.numeric(Sys.time()) * 1000) 
    ), 
    add_headers(Referer = sprintf("http://hol.osu.edu/spmInfo.html?id=%s", specimen)), 
    set_cookies(hymShowInfo = "Y") 
) -> res 

    stop_for_status(res) 

    res <- trimws(content(res, as="text")) 
    res <- gsub("^\\(|);$", "", res) 
    res <- jsonlite::fromJSON(res) 
    res 

} 

페이지가 동적 데이터와 (매개 변수로 종 코드 소요) 그 기능을 모방 전화를 검색합니다.

이제이 기능을 사용하려면

spec <- get_specimen_info("CMNHENT0042647") 

str(spec) 
## List of 1 
## $ spmInfo:List of 47 
## ..$ cuid    : chr "CMNHENT0042647" 
## ..$ alt_ids   : list() 
## ..$ loc_id   : int 9661 
## ..$ loc_name   : chr "Defiance Township, Defiance Co., OH" 
## ..$ lat    : num 41.3 
## ..$ lng    : num -84.4 
## ..$ elev    : chr "" 
## ..$ max_elev   : chr "" 
## ..$ prec_type   : chr "POINT" 
## ..$ loc_comments  : chr "" 
## ..$ coord_source  : chr "USGS-GNIS" 
## ..$ hier    :List of 7 
## .. ..$ place:List of 3 
## .. .. ..$ id : chr "202" 
## .. .. ..$ name: chr "Defiance" 
## .. .. ..$ type: chr "County" 
## .. ..$ pol2 :List of 3 
## .. .. ..$ id : chr "202" 
## .. .. ..$ name: chr "Defiance" 
## .. .. ..$ type: chr "County" 
## .. ..$ pol1 :List of 3 
## .. .. ..$ id : chr "82" 
## .. .. ..$ name: chr "Ohio" 
## .. .. ..$ type: chr "State" 
## .. ..$ pol0 :List of 3 
## .. .. ..$ id : chr "81" 
## .. .. ..$ name: chr "United States" 
## .. .. ..$ type: chr "Country" 
## .. ..$ pol-1:List of 3 
## .. .. ..$ id : chr "23" 
## .. .. ..$ name: chr "North America" 
## .. .. ..$ type: chr "Continent" 
## .. ..$ pol-3:List of 3 
## .. .. ..$ id : chr "5621" 
## .. .. ..$ name: chr "Western Hemisphere" 
## .. .. ..$ type: chr "Hemisphere" 
## .. ..$ pol-4:List of 3 
## .. .. ..$ id : chr "0" 
## .. .. ..$ name: chr "Earth" 
## .. .. ..$ type: chr "" 
## ..$ coll_event_id  : chr "343832" 
## ..$ coll_method  : chr "none specified" 
## ..$ coll_date   : chr "18 August 1981" 
## ..$ coll_date_alt  : chr "18.VIII.1981" 
## ..$ coll_time   :List of 2 
## .. ..$ start: chr "" 
## .. ..$ end : chr "" 
## ..$ date_type   : chr "CLOCK_TIME" 
## ..$ field_code  : chr "" 
## ..$ collector   : chr "Perry, T. E." 
## ..$ collector_alt  : chr "T. E. Perry" 
## ..$ collector_extended:'data.frame': 1 obs. of 6 variables: 
## .. ..$ last_name : chr "Perry" 
## .. ..$ first_name : chr "" 
## .. ..$ initials : chr "T. E." 
## .. ..$ generation : chr "" 
## .. ..$ name_order : chr "W" 
## .. ..$ collector_id: int 33377 
## ..$ determinations :'data.frame': 1 obs. of 17 variables: 
## .. ..$ det_id  : int 2217760 
## .. ..$ tnuid  : int 355808 
## .. ..$ id   : int 355808 
## .. ..$ taxon  : chr "Macromia taeniolata" 
## .. ..$ author  : chr "Rambur" 
## .. ..$ det_date  : chr "2016" 
## .. ..$ status  : chr "Original name/combination" 
## .. ..$ det_status : chr "CURRENT" 
## .. ..$ type_status : chr "" 
## .. ..$ determiner_id: int 0 
## .. ..$ cu_coll_id : chr "" 
## .. ..$ coll_id  : chr "" 
## .. ..$ rank   : chr "Species" 
## .. ..$ valid  : chr "Valid" 
## .. ..$ homonym  : chr "N" 
## .. ..$ common_names :List of 1 
## .. .. ..$ : chr [1:2] "Wabash River Cruiser" "Royal River Cruiser" 
## .. ..$ determiner : chr "" 
## ..$ Class    : chr "Hexapoda" 
## ..$ Genus    : chr "Macromia" 
## ..$ Species   : chr "Macromia taeniolata" 
## ..$ Family   : chr "Corduliidae" 
## ..$ Phylum   : chr "Arthropoda" 
## ..$ Kingdom   : chr "Animalia" 
## ..$ Order    : chr "Odonata" 
## ..$ habitat   : chr "" 
## ..$ associations  : list() 
## ..$ spm_sex   : chr "M" 
## ..$ spm_num   : chr "1" 
## ..$ life_status  : chr "adult" 
## ..$ inst_id   : chr "195" 
## ..$ inst_name   : chr "Cleveland Museum of Natural History, OH" 
## ..$ inst_code   : chr "CLEV" 
## ..$ vouchered   : logi TRUE 
## ..$ comments   : chr "[OH, Defiance Co., Defiance, 18-AUG-1981, T. E. Perry, coll.] [ADP - CMNH 13395]" 
## ..$ enterer   : chr "Roberta DeSalvo" 
## ..$ updater   : chr "hmajewski" 
## ..$ date_recorded  : chr "2-AUG-2016" 
## ..$ preparations  :'data.frame': 1 obs. of 3 variables: 
## .. ..$ prep_type : chr "pin" 
## .. ..$ prep_contents: chr "" 
## .. ..$ num_preps : int 1 
## ..$ images   : list() 
## ..$ sequences   : list() 
## ..$ last_update  : chr "2016-08-15T12:32:24Z" 

Answer 2

실제로 스크랩 한 페이지의 범위에있는 내용은 <span class="boldedText" id="hymSpmCoordsID">\n <!-- To Be DB Generated //-->\n</span>입니다. HTML에는 좌표가 없습니다.

페이지로 이동하여 소스를 확인하면 확인할 수 있습니다.