Size: a a a
JZ
A
20-май-20
23-\xec\xe0\xe9-20
node <- qi_webpage %>%
html_nodes(xpath = "//td/a") %>%
html_attr("href")
src <- data.frame()
for(f in node){
print(f)
tab <- read.table(url(f),fill = T,sep = ',')
tab <- tab[7:nrow(tab),]
tab$id <- grep(f, node)
src <- rbind(tab,src)
}
PD
20-май-20
23-\xec\xe0\xe9-20
node <- qi_webpage %>%
html_nodes(xpath = "//td/a") %>%
html_attr("href")
src <- data.frame()
for(f in node){
print(f)
tab <- read.table(url(f),fill = T,sep = ',')
tab <- tab[7:nrow(tab),]
tab$id <- grep(f, node)
src <- rbind(tab,src)
}
options(encoding = "CP1251") перед импортомA
IM
color1 color2 color3 color4 resp_blue resp_red resp_yellow resp_green
1 blue red green yellow 3 1 2 3
2 yellow green blue red 5 7 4 3
data.frame(color1 = c("blue", "yellow"),
color2 = c("red", "green"),
color3 = c("green", "blue"),
color4 = c("yellow", "red"),
resp_blue = c(3, 5),
resp_red = c(1, 7),
resp_yellow = c(2, 4),
resp_green = c(3, 3)
)PU
options(encoding = "CP1251") перед импортомPD
f = ‘http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt'
tab <- read.table(url(f),fill = T,sep = ',')
tab <- tab[7:nrow(tab),]
ad.table() указывать аргумент encoding или fileEncoding = “CP1251”, то должного эффекта не наступаетAP
20-май-20
23-\xec\xe0\xe9-20
node <- qi_webpage %>%
html_nodes(xpath = "//td/a") %>%
html_attr("href")
src <- data.frame()
for(f in node){
print(f)
tab <- read.table(url(f),fill = T,sep = ',')
tab <- tab[7:nrow(tab),]
tab$id <- grep(f, node)
src <- rbind(tab,src)
}
iconv(“\xec\xe0\xe9”, from = “CP1251”, to = “UTF-8”)PD
iconv(“\xec\xe0\xe9”, from = “CP1251”, to = “UTF-8”)PU
iconv(“\xec\xe0\xe9”, from = “CP1251”, to = “UTF-8”)f_url <- 'http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt'
tmp <- read.table(f_url, sep = ',', skip = 7)
tmp$V6 <- iconv(tmp$V6, 'cp1251', 'UTF-8')
head(tmp)
PU
src <- data.frame() нехорошоPU
f = ‘http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt'
tab <- read.table(url(f),fill = T,sep = ',')
tab <- tab[7:nrow(tab),]
ad.table() указывать аргумент encoding или fileEncoding = “CP1251”, то должного эффекта не наступаетАК
f_url <- 'http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt'
tmp <- read.table(f_url, sep = ',', skip = 7)
tmp$V6 <- iconv(tmp$V6, 'cp1251', 'UTF-8')
head(tmp)
read.csv("http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt", fileEncoding = "cp1251", skip = 7L, header = FALSE)PU
read.csv("http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt", fileEncoding = "cp1251", skip = 7L, header = FALSE)PD
f = “http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt”read.table(f, fileEncoding = "CP1251", skip = 7L), то окread.table(url(f), fileEncoding = "CP1251", skip = 7L), то не окАК
f = “http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt”read.table(f, fileEncoding = "CP1251", skip = 7L), то окread.table(url(f), fileEncoding = "CP1251", skip = 7L), то не окread.csv(url("http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt", encoding = "cp1251"), skip = 7L, header = FALSE)PD
read.csv(url("http://maashey.me/php/2020-05-20_Kaluga/20200520_Lisa1.plt", encoding = "cp1251"), skip = 7L, header = FALSE)a
A
PU