dapengde 我现在curl
运行出现curl:try ‘curl--help’ or 'curl--manual' for more information
了!
然后运行代码情况依旧!似乎进入了curl
的家门,家长意见很大呀,是不是没带礼物呀?哈哈
> urlink <- 'http://www.biomet.co.at/pictures/'
> aa <- readLines(urlink, encoding = 'UTF-8')
Warning message:
In readLines(urlink, encoding = "UTF-8") :
incomplete final line found on 'http://www.biomet.co.at/pictures/'
> linkformat <- 'src = "http://www.biomet.co.at/wp/wp-content/gallery'
> bb <- aa[grep(linkformat, aa)]
>
> for(i in 1:length(bb))
+ bb[i] <- substring(
+ bb[i],
+ regexpr("http", bb[i])[1],
+ regexpr(".jpg\"", bb[i])[1] + 3)
>
> bb <- unique(bb)
> bb
[1] NA
> length(bb)
[1] 1
这一问题在下载其它文件时(先后换了几种能用的镜像站点)也有打不开链接的情况,不知这是否属于同一种情况呢?代码如下:
> if(!require(devtools)) install.packages("devtools")
> devtools::install_github('rstudio/blogdown')
Downloading GitHub repo rstudio/blogdown@master
Error in utils::download.file(url, path, method = download_method(), quiet = quiet, :
cannot open URL 'https://api.github.com/repos/rstudio/blogdown/tarball/master'
在运行这一代码不成后,我试下载了其它的R包,发现下载其它包时能正常下载安装。