2

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を提供することにも気付きました。どうすればこれを解決できますか?

4

0 に答える 0