POST 方式表单提交

u = "http://www.rateinflation.com/consumer-price-index/usa-historical-cpi"

 页面有三个form一个from一个to,还有一个提交按钮

forms = getHTMLFormDescription(u) 

[[1]]
HTML Form: http://www.rateinflation.com/consumer-price-index/usa-historical-cpi.php
start-year: [ 2005 ] 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015
end-year: [ 2015 ] 1913, 1914, 1915, 1916, 1917, 1918, 1919, 1920, 1921, 1922, 1923, 1924, 1925, 1926, 1927, 1928, 1929, 1930, 1931, 1932, 1933, 1934, 1935, 1936, 1937, 1938, 1939, 1940, 1941, 1942, 1943, 1944, 1945, 1946, 1947, 1948, 1949, 1950, 1951, 1952, 1953, 1954, 1955, 1956, 1957, 1958, 1959, 1960, 1961, 1962, 1963, 1964, 1965, 1966, 1967, 1968, 1969, 1970, 1971, 1972, 1973, 1974, 1975, 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015

没有发现提交button,需要制定dropButtons = FALSE

得到一个为NULL的元素

.. ..$ NULL :List of 1
.. .. ..$ name: NULL

form[[1]]$formAttributes
                                                                    method 
                                                                     "get" 
                                                                    action 
"http://www.rateinflation.com/consumer-price-index/usa-historical-cpi.php" 
attr(,"class")
[1] "HTMLFormAttributes"

 发现是GET方式,而不是POST。提交1990-2000的查询

doc = htmlParse(getCPI(`start-year` = 1990,`end-year`=2000))

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html>
<head><title>301 Moved Permanently</title></head>
<body>
<h1>Moved Permanently</h1>
<p>The document has moved <a href="http://www.rateinflation.com/consumer-price-index/usa-historical-cpi?start-year=1990&amp;end-year=2000">here</a>.</p>
</body>
</html>

重新生成了一个查询URL,那么

readHTMLTable(htmlParse(getHTMLLinks(doc)))

 就可以读取页面的表格了。

V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14
1 Year jan feb mar apr may jun jul aug sep oct nov dec ann
2 2000 168.8 169.8 171.2 171.3 171.5 172.4 172.8 172.8 173.7 174 174.1 174 172.2
3 1999 164.3 164.5 165 166.2 166.2 166.2 166.7 167.1 167.9 168.2 168.3 168.3 166.6

 

转载于:https://www.cnblogs.com/Dearc/p/4314185.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值