AkiyukiOkayasu · January 26, 2022 09:03
diff --git a/csv2sav.r b/csv2sav.r
 #install.packages("tidyverse")#ライブラリのインストール（初回のみ）
 library(haven)

 print(getwd())# 作業ディレクトリ
 l <- list.files(pattern=".csv")# CSVファイルを検索、リスト化

 for (e in l) {
    print(paste0(e, ".sav"))    
    df <- read.csv(e)#CSV読み込み
    write_sav(df, paste0(e, ".sav"))#SAV書き出し
 }
diff --git a/gyoumatukannma.sh b/gyoumatukannma.sh
 find . -name "*.csv" | xargs sed -i "" "s/,\$//"
diff --git a/maesyori.sh b/maesyori.sh
 find . -name "*.csv" | xargs nkf -w --overwrite -d; find . -name "*.csv" | xargs sed -i "" "s/,\$//"
diff --git a/mozicodeKaigyou.sh b/mozicodeKaigyou.sh
 find . -name "*.csv" | xargs nkf -w --overwrite -d
	#install.packages("tidyverse")#ライブラリのインストール（初回のみ）
	library(haven)

	print(getwd())# 作業ディレクトリ
	l <- list.files(pattern=".csv")# CSVファイルを検索、リスト化

	for (e in l) {
	print(paste0(e, ".sav"))
	df <- read.csv(e)#CSV読み込み
	write_sav(df, paste0(e, ".sav"))#SAV書き出し
	}