library(relenium)
firefox <- firefoxClass$new()
firefox$get("http://jamaserv.jama.or.jp/newdb/eng/prod4/prod4TsMkEntry.html")
firefox$printHtml()
## <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
## <!--?xml version="1.0" encoding="UTF-8"?--><html lang="ja" xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" xmlns:te="http://www.seasar.org/teeda/extension">
## <head>
## <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
## <style xml:space="preserve" type="text/css">@import url('../../common/styles/default.css');</style>
## <script type="text/javascript" async="" src="http://www.google-analytics.com/ga.js"></script><script xml:space="preserve" src="../common/scripts/exp4.js" language="JavaScript" type="text/javascript"></script><script xml:space="preserve" src="../common/scripts/exp4Menu.js" language="JavaScript" type="text/javascript"></script><script xml:space="preserve" src="../common/scripts/submit_menu.js" language="JavaScript" type="text/javascript"></script><title>Production (Motor Vehicle) Year&Month/Manufacturer</title>
## <!-- Google Analytics --><script xml:space="preserve" language="JavaScript" type="text/javascript">
## var _gaq = _gaq || [];
## _gaq.push(['_setAccount', 'UA-20813923-1']);
## _gaq.push(['_setDomainName', '.jama.or.jp']);
## _gaq.push(['_trackPageview']);
##
## (function() {
## var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
## ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
## var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
## })();
## </script>
## </head>
## <body>
## <img width="1" height="58" src="../common/images/space.gif"><img width="430" height="58" src="../common/images/prod4_02.gif" alt="Production (Motor Vehicle) Year&Month/Manufacturer"><table width="460" border="0"><tbody><tr><td align="right" rowspan="1" colspan="1"><span class="jama-investigation">Investigate by Japan Automobile Manufacturers Association, Inc.</span></td></tr></tbody></table>
## <form action="/newdb/eng/prod4/prod4TsMkEntry.html" enctype="application/x-www-form-urlencoded" method="post" name="prod4TsMkEntryForm" id="prod4TsMkEntryForm">
## <!-- メーカー選択エリア -->
## <span id="contents4"><script language="JavaScript1.1">
## <!--
## function chkTypeAllMaker(f,checkdata){
## for(i = 0; i < f.makerCd.length;i++){
## if(checkdata.checked){
## f.makerCd[i].checked = true;
## }else{
## f.makerCd[i].checked = false;
## }
## }
## }
## function selectTypeMakerCd(f,checkdata){
## chkallflg=true;
##
## if(checkdata.checked){
## for(i = 0; i < f.makerCd.length;i++){
## if(!f.makerCd[i].checked){
## chkallflg=false;
## }
## }
## if(chkallflg){
## f.chkCarMaker4All.checked=true;
## }
## }
## else{
## f.chkCarMaker4All.checked=false;
## }
## }
## //-->
## </script><!-- メーカーの選択エリア --><table cellspacing="0" cellpadding="0" border="0"><tbody>
## <tr>
## <td><img src="../common/images/left-top.gif"></td>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td><img width="5" height="5" src="../common/images/right-top.gif"></td>
## </tr>
## <tr>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td width="450" bgcolor="#000066">
## <table width="450" cellspacing="0" cellpadding="0" border="0" class="operation-area"><tbody>
## <tr valign="TOP">
## <td valign="TOP" colspan="3">
## <img width="150" height="15" alt="4.Manufacturer" src="../common/images/04_maker.gif">
## </td>
## </tr>
## <tr class="operation-color-white">
## <td colspan="5">
## <input type="checkbox" checked onclick="chkTypeAllMaker(this.form,this)" name="chkCarMaker4All"><strong>All Manufactures</strong>
## </td>
## </tr>
## <tr><td height="1" bgcolor="#FFFFFF" colspan="5"></td></tr>
## <tr valign="TOP" class="operation-color-white">
## <td width="150" nowrap>
## <input type="checkbox" checked value="5" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">TOYOTA<br><input type="checkbox" checked value="10" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">NISSAN<br><input type="checkbox" checked value="15" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">MAZDA<br><input type="checkbox" checked value="20" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">MITSUBISHI<br><input type="checkbox" checked value="25" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">ISUZU<br>
## </td>
## <td width="1" bgcolor="#FFFFFF"></td>
## <td>
## <input type="checkbox" checked value="30" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">DAIHATSU<br><input type="checkbox" checked value="35" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">HONDA<br><input type="checkbox" checked value="40" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">SUBARU<br><input type="checkbox" checked value="45" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">UD TRUCKS<br><input type="checkbox" checked value="50" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">HINO<br>
## </td>
## <td width="1" bgcolor="#FFFFFF"></td>
## <td>
## <input type="checkbox" checked value="55" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">SUZUKI<br><input type="checkbox" checked value="70" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">GM JAPAN<br><input type="checkbox" checked value="75" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">MITSUBISHI FUSO<br><input type="checkbox" checked value="95" onclick="selectTypeMakerCd(this.form,this)" name="makerCd">Others<br>
## </td>
## </tr>
## <tr><td height="1" bgcolor="#FFFFFF" colspan="5"></td></tr>
## <tr>
## <td nowrap colspan="5">
## <input type="checkbox" checked onclick="selectTypeMakerCd(this.form,this)" value="0" name="makerCd">Total</td>
## </tr>
## </tbody></table>
## </td>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## </tr>
## <tr>
## <td><img width="5" height="5" src="../common/images/left-bottom.gif"></td>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td><img width="5" height="5" src="../common/images/right-bottom.gif"></td>
## </tr>
## </tbody></table>
## <br></span>
## <div style="color:#000000;font-size:10px; margin-top:-10px;">
## * Nissan Diesel has changed its name to UD Trucks as of February 1, 2010.
## </div>
## <br clear="none"><!-- 合算方法選択エリア --><span id="contents5"><!-- 時系列合算方法の選択 -->
## <table cellspacing="0" cellpadding="0" border="0"><tbody>
## <tr>
## <td><img src="../common/images/left-top.gif"></td>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td><img src="../common/images/right-top.gif"></td>
## </tr>
## <tr>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td bgcolor="#000066">
## <table width="450" cellspacing="0" cellpadding="0" border="0"><tbody><tr valign="top">
## <td valign="top">
## <img width="150" height="15" alt="5.Term and Intervals" src="../common/images/05_time.gif"><table width="450" cellspacing="0" cellpadding="0" border="0" class="operation-area"><tbody>
## <tr class="operation-color-white">
## <td valign="middle">Term (month)</td>
## <td>
## <select name="additionBase"><option value="1">1</option>
## <option value="2">2</option>
## <option selected value="3">3</option>
## <option value="4">4</option>
## <option value="5">5</option>
## <option value="6">6</option>
## <option value="7">7</option>
## <option value="8">8</option>
## <option value="9">9</option>
## <option value="10">10</option>
## <option value="11">11</option>
## <option value="12">12</option></select>
## </td>
## </tr>
## <tr class="operation-color-white">
## <td valign="middle">Intervals (month)</td>
## <td>
## <select name="additionInterval"><option value="1">1</option>
## <option value="2">2</option>
## <option selected value="3">3</option>
## <option value="4">4</option>
## <option value="5">5</option>
## <option value="6">6</option>
## <option value="7">7</option>
## <option value="8">8</option>
## <option value="9">9</option>
## <option value="10">10</option>
## <option value="11">11</option>
## <option value="12">12</option></select>
## </td>
## </tr>
## <tr><td height="1" bgcolor="#FFFFFF" colspan="2"></td></tr>
## <tr bgcolor="#000066" class="operation-color-white">
## <td colspan="2">
## <strong><u>NOTE: Data Selection Method</u></strong><br>
## For example, to obtain the guarterly data, Jan.-Mar.,
## select "3" in the column for Term and Intervals.<br>To obtain the half-year data, Jan.-Jun., select "6"
## in the column for Term and Intervals.</td>
## </tr>
## </tbody></table>
## </td>
## </tr></tbody></table>
## </td>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## </tr>
## <tr>
## <td><img src="../common/images/left-bottom.gif"></td>
## <td bgcolor="#000066"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td><img src="../common/images/right-bottom.gif"></td>
## </tr>
## </tbody></table>
## <br></span>
## <br clear="none"><!-- "車種選択エリア --><span id="contents6"><script language="JavaScript1.1">
## <!--
## function selectTypeCar4d_green(f,checkdata,group){
## chkflg=true;
## chkallflg=true;
##
## if(group==0){
## objtype = document.getElementById( "chkTypeGroup_car_green" );
## }
## if(group==1){
## objtype = document.getElementById( "chkTypeGroup_truck_green" );
## }
## if(group==2){
## objtype = document.getElementById( "chkTypeGroup_bus_green" );
## }
##
## if(checkdata.checked){
## obj = document.getElementById( "car4Cd_car_green_0" );
## if(!obj.checked){
## if(group==0){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_car_green_1" );
## if(!obj.checked){
## if(group==0){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_car_green_2" );
## if(!obj.checked){
## if(group==0){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_truck_green_0" );
## if(!obj.checked){
## if(group==1){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_truck_green_1" );
## if(!obj.checked){
## if(group==1){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_truck_green_2" );
## if(!obj.checked){
## if(group==1){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_bus_green_0" );
## if(!obj.checked){
## if(group==2){
## chkflg=false;
## }
## chkallflg=false;
## }
## obj = document.getElementById( "car4Cd_bus_green_1" );
## if(!obj.checked){
## if(group==2){
## chkflg=false;
## }
## chkallflg=false;
## }
## if(chkflg){
## objtype.checked=true;
## }
## }
## else{
## objtype.checked=false;
## }
## }
## function selectTypeGroup_green(f,checkdata,group){
## chkallflg=true;
##
## if(group==0){
## obj = document.getElementById( "car4Cd_car_green_0" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## obj = document.getElementById( "car4Cd_car_green_1" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## obj = document.getElementById( "car4Cd_car_green_2" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## }
## if(group==1){
## obj = document.getElementById( "car4Cd_truck_green_0" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## obj = document.getElementById( "car4Cd_truck_green_1" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## obj = document.getElementById( "car4Cd_truck_green_2" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## }
## if(group==2){
## obj = document.getElementById( "car4Cd_bus_green_0" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## obj = document.getElementById( "car4Cd_bus_green_1" );
## if(checkdata.checked){
## obj.checked=true;
## }
## else{
## obj.checked=false;
## }
## }
## }
##
## //-->
## </script><!-- 車種の選択エリア --><table cellspacing="0" cellpadding="0" border="0"><tbody>
## <tr>
## <td><img src="../common/images/left-top2.gif"></td>
## <td bgcolor="#006600"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td><img src="../common/images/right-top2.gif"></td>
## </tr>
## <tr>
## <td bgcolor="#006600"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td bgcolor="#006600">
## <table width="450" cellspacing="0" cellpadding="0" border="0"><tbody><tr valign="TOP">
## <td>
## <img width="150" height="15" align="ABSMIDDLE" alt="6.Type" src="../common/images/06_type.gif"><input type="hidden" value="0" name="chkSelCnd3"><table width="450" cellspacing="0" cellpadding="0" border="0" class="operation-area-extract"><tbody>
## <tr class="operation-color-white">
## <td width="149" nowrap>
## <input type="checkbox" checked onclick="selectTypeGroup_green(this.form, this, 0)" name="chkCarTypeGroup" id="chkTypeGroup_car_green"><font color="yellow">All Passenger Cars</font>
## </td>
## <td width="1" bgcolor="#FFFFFF"></td>
## <td width="149" nowrap>
## <input type="checkbox" checked onclick="selectTypeGroup_green(this.form, this, 1)" name="chkCarTypeGroup" id="chkTypeGroup_truck_green"><font color="yellow">All Trucks</font>
## </td>
## <td width="1" bgcolor="#FFFFFF"></td>
## <td width="150" nowrap>
## <input type="checkbox" checked onclick="selectTypeGroup_green(this.form, this, 2)" name="chkCarTypeGroup" id="chkTypeGroup_bus_green"><font color="yellow">All Buses</font>
## </td>
## </tr>
## <tr><td height="1" bgcolor="#FFFFFF" colspan="5"></td></tr>
## <tr class="operation-color-white">
## <td valign="top">
## <input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 0)" value="100005" id="car4Cd_car_green_0" name="car4Cd">Standard<br><input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 0)" value="100010" id="car4Cd_car_green_1" name="car4Cd">Small<br><input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 0)" value="100015" id="car4Cd_car_green_2" name="car4Cd">Mini<br>
## </td>
## <td width="1" bgcolor="#FFFFFF"></td>
## <td valign="top">
## <input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 1)" value="200005" id="car4Cd_truck_green_0" name="car4Cd">Standard<br><input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 1)" value="200010" id="car4Cd_truck_green_1" name="car4Cd">Small<br><input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 1)" value="200015" id="car4Cd_truck_green_2" name="car4Cd">Mini<br>
## </td>
## <td width="1" bgcolor="#FFFFFF"></td>
## <td valign="top">
## <input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 2)" value="300005" id="car4Cd_bus_green_0" name="car4Cd">Large<br><input type="checkbox" checked onclick="selectTypeCar4d_green(this.form, this, 2)" value="300010" id="car4Cd_bus_green_1" name="car4Cd">Small<br>
## </td>
## </tr>
## </tbody></table>
## </td>
## </tr></tbody></table>
## </td>
## <td bgcolor="#006600"><img width="1" height="5" src="../common/images/space.gif"></td>
## </tr>
## <tr>
## <td><img src="../common/images/left-bottom2.gif"></td>
## <td bgcolor="#006600"><img width="1" height="5" src="../common/images/space.gif"></td>
## <td><img src="../common/images/right-bottom2.gif"></td>
## </tr>
## </tbody></table></span>
## <br clear="none"><p>
## <input type="button" onclick="func_submit(this.form)" value="SUBMIT" id="btnAction"><input type="hidden" name="termFrom"><input type="hidden" name="termTo"><input type="submit" style="display:none;" value="Server" name="prod4TsMkEntryForm:doAction" id="doAction"></p>
##
## <input type="hidden" value="prod4TsMkEntryForm" name="prod4TsMkEntryForm/eng/prod4/prod4TsMkEntry.html">
## </form>
## </body>
## </html>
##
## NULL
chkbox <- firefox$findElementByXPath("//input[@name='chkCarMaker4All'][@type='checkbox']")
chkbox$isSelected()
## [1] TRUE
chkbox$click()
chkbox$isSelected()
## [1] FALSE
firefox$close()