[PR]
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
1時間の作業を5分に短縮するために3時間かけるのは馬鹿げていると言われるかもしれませんが、その作業に説明を求められたり、何回も繰り返されるのならばもとは取れるはずです。しかも精度が上がるのならばなお良いと思います。そのためにはITが欠かせません。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
支店名簿=data.frame(支社番号=c(10,20,20,20), 支社名=c("札幌","東京","東京","東京"), 支店番号=c(11,21,22,23), 支店名=c("札幌","大手町","秋葉原","横浜"), stringsAsFactors=FALSE) 支店名簿 ## 支社番号 支社名 支店番号 支店名 ##1 10 札幌 11 札幌 ##2 20 東京 21 大手町 ##3 20 東京 22 秋葉原 ##4 20 東京 23 横浜 write.csv(支店名簿,"c:/wrk/Rtest.csv",row.names = FALSE)
社員名簿=data.frame(社員番号=c(1,2,3,4,5,6), 部署=c("営業部","営業部","総務部","財務部","経理部","秘書室"), 氏名=c("山田太郎","鈴木花子","杉本一郎","支払益子","会計主水","白鳥麗子"), stringsAsFactors=FALSE) 社員名簿 ## 社員番号 部署 氏名 ##1 1 営業部 山田太郎 ##2 2 営業部 鈴木花子 ##3 3 総務部 杉本一郎 ##4 4 財務部 支払益子 ##5 5 経理部 会計主水 ##6 6 秘書室 白鳥麗子
社員名簿=data.frame(社員番号=c(1,2,3,4,5,6), 部署=c("営業部","営業部","総務部","財務部","経理部","秘書室"), 氏名=c("山田太郎","鈴木花子","杉本一郎","支払益子","会計主水","白鳥麗子"), stringsAsFactors=FALSE) 社員名簿 ## 社員番号 部署 氏名 ##1 1 営業部 山田太郎 ##2 2 営業部 鈴木花子 ##3 3 総務部 杉本一郎 ##4 4 財務部 支払益子 ##5 5 経理部 会計主水 ##6 6 秘書室 白鳥麗子 library(RODBC) odbcCloseAll() file.remove("c:/wrk/Rtest.xls") channel<- odbcConnectExcel("c:/wrk/Rtest.xls" ,readOnly=F) #channel<- odbcConnectExcel2007("c:/wrk/Rtest.xls" ,readOnly=F) # Excel2007 and later sqlSave(channel, 社員名簿, "社員名簿", safer=TRUE,fast=FALSE,rownames=FALSE,colnames=FALSE,append=FALSE) odbcClose(channel) Employees<-社員名簿
buyList<-data.frame(t(data.frame( c(20170102,12345,"XA-55",3500,3500), c(20170103,132977,"RX98",2980,3280), c(20170103,349401,"NOK0655",2500,2500), c(20170103,349401,"NOK0655",2500,2500), c(20170104,227291,"NOK2355",3500,35000), c(20170104,227291,"NOK2355",3500,35000), c(20170104,349401,"NOK0655",2500,2500), c(20170105,5288923,"JJ2CAN",6000,6200), c(20170105,132977,"RX98",2780,2980))),stringsAsFactors = FALSE) names(buyList)<-c("入荷日付","商品番号","商品名","当社原価","相手原価") row.names(buyList)<-NULL buyList ## 入荷日付 商品番号 商品名 当社原価 相手原価 ##1 20170102 12345 XA-55 3500 3500 ##2 20170103 132977 RX98 2980 3280 ##3 20170103 349401 NOK0655 2500 2500 ##4 20170103 349401 NOK0655 2500 2500 ##5 20170104 227291 NOK2355 3500 35000 ##6 20170104 227291 NOK2355 3500 35000 ##7 20170104 349401 NOK0655 2500 2500 ##8 20170105 5288923 JJ2CAN 6000 6200 ##9 20170105 132977 RX98 2780 2980
shAutoloader.js ※便利※ shBrushAppleScript.js applescript shBrushAS3.js actionscript3 as3 shBrushBash.js bash shell shBrushColdFusion.js coldfusion cf shBrushCpp.js cpp c shBrushCSharp.js c# c-sharp csharp shBrushCss.js css shBrushDelphi.js delphi pascal shBrushDiff.js diff patch pas shBrushErlang.js erl erlang shBrushGroovy.js groovy shBrushJava.js java shBrushJavaFX.js jfx javafx shBrushJScript.js js jscript javascript shBrushPerl.js perl pl shBrushPhp.js php shBrushPlain.js text plain shBrushPowershell powershell ps shBrushPython.js py python shBrushRuby.js ruby rails ror rb shBrushSass.js sass scss shBrushScala.js scala shBrushSql.js sql shBrushVb.js vb vbnet shBrushXml.js xml xhtml xslt html shCore.js ※必須※ shLegacy.jsメインの部分はshCore.jsです。これは必ず必要になります。
shCore.css shCoreDefault.css shCoreDjango.css shCoreEclipse.css shCoreEmacs.css shCoreFadeToGrey.css shCoreMDUltra.css shCoreMidnight.css shCoreRDark.css shThemeDefault.css shThemeDjango.css shThemeEclipse.css shThemeEmacs.css shThemeFadeToGrey.css shThemeMDUltra.css shThemeMidnight.css shThemeRDark.cssver2では shCore.css プラス shTheme○○.css という形で選択するのでした。ver3でもその選択は可能ですが、それを一つにした shCore○○.css を選んでも構いません。
<script src="http://file.ホスト名/shCore.js"></script> <script src="http://file.ホスト名/shBrushXml.js"></script> <script src="http://file.ホスト名/shBrushR.js"></script> <link rel="stylesheet" href="http://file.ホスト名/shCoreEclipse.css">忍者ブログの場合、管理ページ>共通タグの設定></head>タグの直前に上記コードを記入します。
<script src="http://file.ホスト名/shCore.js"></script> <script src="http://file.ホスト名/shAutoloader.js"></script> <script src="http://file.ホスト名/shBrushXml.js"></script> <link rel="stylesheet" href="http://file.ホスト名/shCoreEclipse.css">私の場合、忍者ブログの、管理ページ>共通タグの設定></head>タグの直前に上記コードを記入してうまくいきました。shBrushXml.js はhtmlと他言語の混用に対応するために必要と言われています。shCoreEclipse.cssは自分の使用するテーマのCSSファイルにします。
<script language="javascript" type="text/javascript"> SyntaxHighlighter.config.bloggerMode = true; SyntaxHighlighter.autoloader( "r http://file.ホスト名/shBrushR.js", "sql http://file.ホスト名/shBrushSql.js", "html xml http://file.ホスト名/shBrushXml.js" ); SyntaxHighlighter.all(); </script>私は、忍者ブログの、管理ページ>共通タグの設定></body>タグの直前に上記コードを記入して稼働しました。私はR、SQLがとりあえず必要と思いますので上記設定にします。SyntaxHighlighter.config.bloggerMode = true;とするとソースコードに</script>とあったら、それはソースコード本文として扱わずに改行します。
<pre class="brush:言語エイリアス名; " > ソースコード </pre>のように<pre>~</pre>にソースコードを挟んで書きます。
<pre class="brush:html; collapse:false" title="基本的ロード方法(Eclipse風画面でRのコードを掲載する場合)" > <script src="http://file.ホスト名/shCore.js"></script> <script src="http://file.ホスト名/shAutoloader.js"> </script> <script src="http://file.ホスト名/shBrushXml.js"></script> <link rel="stylesheet" href="http://file.ホスト名/shCoreEclipse.css"> </pre><pre>~<pre>では<や>はそれぞれ<、>と表記する必要があるのがとても面倒です。
<script src="http://file.ホスト名/shCore.js"></script> <script src="http://file.ホスト名/shBrushXml.js"></script> <script src="http://file.ホスト名/shBrushR.js"></script> <link rel="stylesheet" href="http://file.ホスト名/shCoreEclipse.css">