1

私はエラーに出くわしました:

> getBDLsearch("czas")
Error in file(con, "r") : cannot open the connection

...そこで、関数のどこに問題があるかを見つけるために分解を開始しました。とても簡単なので貼り付けておきます。

require(htmltools)
getBDLsearch <- function(query = "", debug = 0, raw = FALSE) {
  url <- paste0('https://api.mojepanstwo.pl/bdl/search?q=', htmlEscape(query))
  if (raw) {
    document <- jsonlite::fromJSON(txt = url,simplifyVector=FALSE)
    return(document)
  } 
  else {
    document <- jsonlite::fromJSON(txt = url,simplifyDataFrame=TRUE)
    return(document)
  }
}

( https://github.com/pbiecek/SmarterPoland )

問題は、後続の行を手動で実行すると、魅力のように機能し、変数「ドキュメント」がうまく入力されることです。私は興味があります、それはなぜですか？

4

0 に答える 0