tests/test16_sep2.R

In takewiki/nscsrobot:

library(nrcsrobot);
library(tsdo);
library(tsda);
library(readxl)
#加载匹配表
source('./tests/mt.R',encoding = 'utf-8');


# res <- dealLog2(row_sep = "");




data_tpl <- read_excel("data-raw/output/知识点导入模板.xlsx",
                       col_names = FALSE)
data_tpl <- tbl_as_df(data_tpl);
data_tpl <- data_tpl[1:2,];
col_count <- ncol(data_tpl);
col_nickName <-LETTERS[1:col_count];
names(data_tpl) <- col_nickName;




res <- dealLog_dir(files = "./data-raw/input/201908B/",
                   file_filter_equal = file_filter_equal,
                   file_filter_like = file_filter_like,
                   question_filter_equal = question_filter_equal,
                   question_filter_like = question_filter_like,
                   answer_filter_equal = answer_filter_equal,
                   answer_filter_like = answer_filter_like,
                   row_sep = ""
)

View(res);


row_count <- nrow(res);
A <- paste("捷豹路虎",tsdo::left(res$dlg_date,7),res$dlg_date,sep="/");
B <- res$question;
C <- res$question;
D <- res$answer;
E <- rep("1",row_count);
F <-rep("",row_count);
G <-rep("",row_count);
H <- rep("1",row_count);
I <-rep("",row_count);
res_formatted <- data.frame(A,B,C,D,E,F,G,H,I,stringsAsFactors = FALSE);

res_output <- rbind(data_tpl,res_formatted);
#View(res_output);
openxlsx::write.xlsx(res_output,"res_output_all_201908BV2.xlsx");