Rでウェブ解析：データの抽出について

###ライブラリーの読み込み#####
library("XLConnect")
library("tcltk")
########

###データの読み込み#####
###xlxsデータ#####
###解析データ#####
sheetSelect <- 1#読み込むシート番号を入力
selectABook <- paste(as.character(tkgetOpenFile(title = "試験結果xlsxファイルを選択",filetypes = '{"xlsxファイル" {".xlsx"}}',initialfile = "*.xlsx")), sep = "", collapse =" ")
MasterAnaData <- loadWorkbook(selectABook)
AnaData <- readWorksheet(MasterAnaData, sheet = sheetSelect)

###初期Dirの設定#####
FarstDir <- as.data.frame(strsplit(selectABook, "/")) #初期dirpathの取得準備
FarstDir <- paste(FarstDir[1:(nrow(FarstDir)-1),], sep = " ", collapse = "/" ) #初期dirpathの取得
setwd(FarstDir) #初期dir設定
########

###解析する際に入力する個所#####
fileName <- "テスト" #出力ファイル名
Gtext <- c("2w") #抽出する単語の設定
ADRange_SE <- 1:2 #残したい行の設定。例えば被験者番号など
########

###解析コマンド#####

###Dataの抽出#####
for ( n in 1:length(Gtext)){
  include_with_text <- grep(Gtext[n],colnames(AnaData),value = TRUE) #行抽出の準備
  SelectDF <- subset(AnaData,select = include_with_text) #行の抽出
  ExMaster <- cbind(AnaData[,ADRange_SE],SelectDF) #抽出データの結合
  writeWorksheetToFile(paste(format(Sys.time(), "%y.%m.%d")," ", fileName, ".xlsx", sep = ""), data= ExMaster, sheet= Gtext[n])
  assign(paste("AnaData_", n, sep = ""), ExMaster, envir = .GlobalEnv) #"AnaData_" + Gtextで変数を作成し情報を格納
}
########

###統合データの作成#####
if (1 &lt; length(Gtext)){
  #抽出データが2以上の場合
  NewFile <- AnaData[,ADRange_SE]
  for ( n in (ADRange_SE[length(Gtext)] + 1):ncol(AnaData_1)) {
    for (o in 1:length(Gtext)){
      NAD <- eval(parse(text = paste("AnaData_",o, sep = "")))[,n]
      NAD <- as.data.frame(NAD)
      colnames(NAD) <- iconv(colnames(eval(parse(text = paste("AnaData_",o, sep = "")))[n]),"cp932","UTF-8")
      NewFile <- cbind(NewFile,NAD)
      
    }
  }
  colnames(NewFile) <- iconv(colnames(NewFile),"cp932","UTF-8")
  writeWorksheetToFile(paste(format(Sys.time(), "%y.%m.%d")," ", fileName, ".xlsx", sep = ""),data=NewFile,sheet = "統合データ" ) #新データフレームの書き出し
  
}else{
  #抽出データが1の場合何もしない
}
########