packageを使用してhttp://www.federalreserve.gov/apps/mdrm/data-dictionaryからデータを取得しようとしています。最初のフォームに問題なく記入して送信できますが、2 番目のフォームがある場合 (たとえば、シリーズ "RCON" を検索すると、"You have selected a series with segmented mnemonics" が表示されます)、同じアプローチは機能しません。RRHTMLForms
私のコードは以下の通りです:
library(RHTMLForms)
library(RCurl)
library(XML)
mdrm.form = getHTMLFormDescription("http://www.federalreserve.gov/apps/mdrm/data-dictionary")[[1]]
fun = createFunction(mdrm.form)
results.html = fun(
DisplayConfidentialItemsOnly = NULL,
DisplayItemShortTitle = NULL,
Keyword = "RCON",
search_by = "Series",
SelectedCatalogItemDayCeilingRange.Key = "18",
SelectedCatalogItemDayRange.Key = "18",
SelectedCatalogItemMonthCeilingRange.Key = "Mar",
SelectedCatalogItemMonthRange.Key = "Mar",
SelectedCatalogItemReportingStatus.Key = "All",
SelectedCatalogItemState.Key = "Opened",
SelectedCatalogItemTimePeriod.Key = "Before",
SelectedCatalogItemYearCeilingRange.Key = "2015",
SelectedCatalogItemYearRange.Key = "2015",
SelectedItemType.Key = "None",
SelectedReportForm.Key= "Select Reporting Form",
SelectedSeries.Key = "RCON"
)
fun2 = createFunction(getHTMLFormDescription(results.html)[[1]])
results2.html = fun2(SelectedSeries.Key = "RCON")
これにより、 が得られますError in Function: Could not resolve host: NA。
また、ブラウザーでアクセスできないgetHTMLFormDescription(results.html)[[1]]URL http://www.federalreserve.gov/apps/mdrm/data-dictionary/search/seriesを提供することにも気付きました。どうすればこれを解決できますか?