View source: R/generate lottodata.R
generate lottodata
1 2 |
1 2 3 4 5 | 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(last=last,update=T,sleep=0))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.