［Excel VBA］カレントディレクトリを取得する

CurDir関数を使う。戻り値のデータ型は文字列。以下は、起動した直後のExcelで実行した例。なお、これを実行したパソコンはDドライブがある。

Debug.Print "カレントディレクトリ→" & CurDir()
Debug.Print "カレントディレクトリ→" & CurDir("C")
Debug.Print "カレントディレクトリ→" & CurDir("D")
→
カレントディレクトリ→C:\Users\○○\Documents
カレントディレクトリ→C:\Users\○○\Documents
カレントディレクトリ→D:\

Excelは特に指定をしないと、起動直後はC:\Users\○○\Documents（○○はアカウント名）がカレントディレクトリになる。

引数に設定していないドライブ名を指定すると、エラー「実行時エラー '68': デバイスが準備されていません。」が発生して、プログラムが停止するので注意。

［R］一時ファイル（テンポラリファイル）を利用する

一時的に利用するファイル（テンポラリファイル）を利用するにはtempfile関数を使う。tempfile関数はテンポラリファイルを作成するのではなく、テンポラリファイルとして使用できるファイル名を返すことに注意。以下、実行例。

> filename <- tempfile()
> filename
[1] "C:\\Users\\○○\\AppData\\Local\\Temp\\××\\□□"
> write(1:3, file = filename)
> dtf <- read.table(file = filename)
> dtf
  V1 V2 V3
1  1  2  3

上記はWindows 10 で実行した例。○○はアカウント名、××と□□は任意の文字列。××は現在起動中のR本体用のテンポラリディレクトリであり、そのRを終了するとこのディレクトリは自動で削除される。□□はテンポラリファイルのファイル名で、このファイルも自動で削除される。

この自動で削除されるテンポラリディレクトリ名を得るにはtempdir関数を使う。

> tempdir()
[1] "C:\\Users\\○○\\AppData\\Local\\Temp\\××"

［R］「Rによる時系列モデリング入門」に掲載の時系列解析を行う

パッケージTSSSを使用する。

> install.packages("TSSS")
 パッケージを ‘C:/Users/○○/Documents/R/win-library/○○’ 中にインストールします 
 (‘lib’ が指定されていないため) 
 URL 'https://○○/TSSS_1.3.1.zip' を試しています 
Content type 'application/zip' length 852282 bytes (832 KB)
downloaded 832 KB
package ‘TSSS’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
        C:\Users\○○\AppData\Local\Temp\○○\downloaded_packages
> library(TSSS)

最新情報はhttps://jasp.ism.ac.jp/ism/TSSS/を参照のこと。

［R］簡単に地図を表示する

leafletパッケージを使う。

> install.packages("leaflet")
> library(leaflet)

とりあえず表示してみる。特に何も設定しなければ、ブラウザー上に地図が表示される。

> m <- leaflet() %>% addTiles()
> m

この地図は、マウスで表示範囲などを簡単に変えることができる。特に指定をしないと、表示される地図にはOpenStreetMapが使用される。この表示に使用される地図を、地理院地図のタイルにするには、以下のようにする。

> m <- leaflet()
> m <- m %>% addTiles("https://cyberjapandata.gsi.go.jp/xyz/std/{z}/{x}/{y}.png")
> m

表示範囲や大きさなどは簡単に指定することができる。以下は、北緯35.5度、東経139.7度を中心として、ズームレベル9で地理院地図を表示した例。

> m <- m %>% setView(139.7, 35.5, zoom = 9)
> m

leafletの公式ページは以下。

https://leafletjs.com/