Description Usage Arguments Value Examples
This function merges the list of data objects together.
1 | dataMerger(x, byrow = TRUE)
|
x |
list of data objects. |
byrow |
list is merged by row or by column. If byrow==FALSE only two objects are merged into a list. |
Returns the data.frame object with urls and links.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | library(CECscraper)
#Example 1
murl<-"http://notelections.online/region/izbirkom?action=show&vrn=27720002327736®ion=77&prver=0&pronetvd=null"
uiks <- listURLextractor(
rowURLextractor(
listURLextractor(
listURLextractor(murl))[1:5,], 'sayt izbiratel`noy komissii sub`yekta'))
uiks_turnout<-rowURLextractor(uiks, "Dannyye ob otkrytii pomeshcheniy dlya golosovaniya")
uiks_voting<-rowURLextractor(uiks, "Rezul`taty vyborov|vyborov po odnomandatnomu \\(mnogomandatnomu\\) okrugu")
uiks_turnout_data<-dataBuilder(uiks_turnout, bylevel="level1", ttime=TRUE)
uiks_voting_data<-dataBuilder(uiks_voting, bylevel="level1", ttime=FALSE)
uiks_merged<-dataMerger(list(uiks_voting_data,uiks_turnout_data), byrow=FALSE)
#Example 2
# library(dplyr)
# murl="http://notelections.online/region/izbirkom?action=show&global=1&vrn=100100084849062®ion=0&prver=0&pronetvd=null"
#fast_downloadT<-rowURLextractor(murl, "Predvaritel`nyye svedeniya ob uchastii izbirateley")%>%
# listURLextractor()%>%listURLextractor()%>%sample_n(100, replace = FALSE)%>%
# rowURLextractor("sayt izbiratel`noy komissii sub`yekta Rossiyskoy Federatsii")%>%
# dataBuilder(typedata="fast", bylevel="level2", ttime=TRUE)%>%dataMerger()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.