Spotfire : Data Function 실행 시 로그 생성하기

Spotfire와 R을 연동해서 Data function을 실행하다보면 중간중간에 값을 출력해서 확인 하고 싶지만 구조상 사전에 설정한 Output Parameter로 모두 Spotfire로 가져오도록 되어있다.

하지만 TSSS와 연동된 R에 데이터와 Script를 던져 실행하기 때문에 실질적으로는 R이 설치된 장비에서 이미 Script가 실행되므로 해당 장비에서 로그를 생성하도록 Script 만 추가하면 간단히 해결할 수 있다.

# Setting Default
pathRoot <- "C:/tibco/pnd/";
# Setting for Logging
start.time <- Sys.time();
# Generate log file and sink
log.filename <- gsub('[-: ]', '.', log.filename, fixed=TRUE);
log.filename <- paste(pathRoot, "Reg/Reg_", log.filename , ".log", sep="");
log.file <- file(log.filename, open = "wt");
sink(log.file, type="output");