(주)빌트온 고객사 로그인 자동화

rm(list=ls())
test<-read.csv('C:\\Users\\이해리\\Desktop\\고객사 로그인\\client_stat_5fdbe955e81ff.csv', sep=",")

test
test$상품_타입<-test$상품.타입
test$최근_로그인_시간<-test$최근.로그인.시간

library(dplyr)
test_1 <- test %>% 
	select("아이디","업체명","상품.타입","최근.로그인.시간","잔여기간","만료여부","총.클라이언트.수")

 
test_2<-test_1[,c("아이디","업체명","상품.타입","최근.로그인.시간","총.클라이언트.수","잔여기간","만료여부")]

test_3 <- test_2 %>% 
	filter(상품.타입=="고객사(S)"|상품.타입=="테스트(T)")

test_4<-test_3 %>% 
	filter(만료여부=="X")

test_5<-test_4[order(as.Date(test_4$최근.로그인.시간, format="%Y-%m-%d")),]

test_6<- test_5 %>% 
	select("아이디","업체명","상품.타입","최근.로그인.시간","총.클라이언트.수","만료여부")

test_6 <- test_6[!(test_6$최근.로그인.시간 == "없음") ,]

test_7<- test_6[!(test_6$아이디 == "kimberly_test") ,]

write.csv(test_7, "C:\\Users\\이해리\\Desktop\\고객사 로그인\\(빌트온)고객사로그인20201218.csv", row.names=FALSE)