スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

RによるWeb上のファイルダウンロード

この記事を閲覧するにはパスワードが必要です
パスワード入力

RでExcelファイル読込み(xlsxパッケージ使用)

RでExcelのファイル.xlsをロードすることができる。パッケージ"xlsx”を使うのだが、ASUSノートPCでは機能したのだけど、Z440では「library(xlsx)」とコマンドを打った後に以下のメッセージが出て機能しなかった。

JAVA_HOME cannot be determined from the Registry

これは、次のJavaのダウンロード用のページに行って、インストーラWindows Offline (64-bit)をダウンロードし64bit版のJavaをインストールすることで解決される。

http://www.java.com/en/download/manual.jsp

Java_xlsx_R_library_install_jre_16Aug2016.png

Package_xlsx_R_library_error_16Aug2016.png

RでHTML出力

C#、Python等も考えたが、地図がRだから、Rを使うことにする。
scan関数でテンプレート全体を読み込んで、キーとなる個所を変換する。

setwd("C:/Users/XXX/Desktop/statmap/test2")
template <- scan("template.html", what = character(), sep="\n")
text1 <- scan("text1.txt", what = character(), sep="\n")
text1 <- paste(text1, collapse = "<br>")
text2 <- scan("text2.txt", what = character(), sep="\n")
text2 <- paste(text2, collapse = "<br>")
html <- template
html <- gsub("text_001", text1, html)
html <- gsub("text_002", text2, html)
write.table(html,"index.html",row.names=F,col.names=F,quote=F)

RGL segments3d()の使い方

この記事を閲覧するにはパスワードが必要です
パスワード入力

ファイル内に検索キーワードを含むファイルの検索

Vistaのファイル検索の機能がクソなため、Rでコードを書いた。コードを書き終わっても検索は終わっていなかったし、結局見つかるとは限らない。

setwd("C:/Users/XXX")
files <- list.files()
for(file in files){
data <- scan(file, sep=",", what = "")
if(length(grep("支店", data))>0){
cat(file)
}
}

Copernicus Code

この記事を閲覧するにはパスワードが必要です
パスワード入力

コペルニクス

NASA 3D Resourcesより月のクレーターのメッシュデータ Copernicuscrater3Xv.stl をダウンロードしてきた。
RのRGLパッケージで描画、光源を変えてgifアニメーションにした。

light_rotation_rgl_Copernicus_Moon_28Dec2015.gif



Rファイル操作:ファイルのコピー

pdffiles <- list.files("C:/Users/XXX/Documents/R/stations", recursive=F)
for(i in c(1:length(pdffiles))){
orgfilename <- paste("C:/Users/XXX/Documents/R/stations/", pdffiles[i], sep="")
copyfilename <- paste("C:/cygwin/home/XXX/pictures/鉄道/passsengers_zoommap/", pdffiles[i], sep="")
file.copy(orgfilename, copyfilename)
}

Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
04 | 2017/05 | 06
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。