Description Usage Arguments Examples
generate lottodata
1 2 |
css |
= Nodes to select. Supply one of css or xpath depending on whether you want to use a css or xpath 1.0 selector. |
t |
= url of list form |
1 2 3 4 5 6 7 | a='https://search.naver.com/search.naver?sm=tab_drt&where=nexearch&query='
b='%ED%9A%8C%EB%A1%9C%EB%98%90'
url<-'https://search.naver.com/search.naver?sm=tab_hty.top&where=nexearch&query=%EB%A1%9C%EB%98%90&oquery=%EB%A1%9C%EB%98%90&tqi=TmrKidpVuFdsssc0EvVssssssUd-075322'
line<-read_html(url,encoding="UTF-8")
p1<-html_nodes(line,css='._lotto-btn-current em')%>%html_text()
last=as.numeric(substr(p1,1,3))
(data<-numdata(a,b,last=last))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.