Question

我有一个我需要验证的.csv文件的URL。

我想将httr的GET应用于数据帧的每一行。

 > websites
          website
1   www.msn.com
2   www.wazl.com
3  www.amazon.com
4 www.rifapro.com

我确实找到了类似的问题并尝试应用提供的答案;但不起作用。

> apply(websites, 1, transform, result=GET(websites$website))


  Error: length(url) == 1 is not TRUE


> apply(websites, websites[,1], GET())
Error in handle_url(handle, url, ...) : 
  Must specify at least one of url or handle

我不确定我做错了什么。

Answer 1

您可以执行类似

的操作

<ngb-tab>
   <ng-template ngbTabTitle>
     <a routerLink="/retail/retail-add">Add</a>
   </ng-template>
   <ng-template ngbTabContent>

   </ng-template>
</ngb-tab>

不需要websites <- read.table(header=T, text="website 1 www.msn.com 2 www.wazl.com 3 www.amazon.com 4 www.rifapro.com") library(httr) urls <- paste0(ifelse(grepl("^https?://", websites$website, ig=T), "", "http://"), websites$website) lst <- lapply(unique(tolower(urls)), function(url) try(HEAD(url), silent = T)) names(lst) <- urls sapply(lst, function(x) if (inherits(x, "try-error")) -999 else status_code(x)) # http://www.msn.com http://www.wazl.com http://www.amazon.com http://www.rifapro.com # 200 -999 405 -999请求imho。

使用GET检查列表og urls的有效性

1 个答案: