99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話：13121318867

登錄
首頁精彩閱讀R字符串處理應(yīng)用之郵件考勤自動化
R字符串處理應(yīng)用之郵件考勤自動化
2017-07-05
收藏

R字符串處理應(yīng)用之郵件考勤自動化

最近發(fā)現(xiàn)，擔(dān)任助教真不是一件輕松的事情啊。雖然老師一直在想方設(shè)法減輕我的工作負(fù)擔(dān)，可是核對名單真的是一件考驗(yàn)眼力和耐力的事情。

最近有一件非常艱巨的任務(wù)：檢查上周的『考勤郵件』。這個(gè)『考勤郵件』，容我耐心的解釋一番。上周，老師為了不浪費(fèi)大家的時(shí)間，通過在某幾分鐘內(nèi)發(fā)送一封郵件到公共郵箱的方法來簽到。

而我今天才拿到選課學(xué)生的名單。我們知道，郵件過了一段時(shí)間，標(biāo)題顯示的接收時(shí)間就會改變。這個(gè)時(shí)候，為了確定郵件的發(fā)送時(shí)間，我必須要每封郵件都打開來看一下，再找到相應(yīng)的名單，然后打上一個(gè)滿意的勾。然而，這可是五十多封郵件?。。。?

立志成為數(shù)（一）據(jù)（名）科（懶）學(xué)（人）家的我，怎能甘心做如此機(jī)械的活呢？于是，想起最近總結(jié)的一篇字符處理相關(guān)的博客，正好可以用上。

說干就干！下面，我們就來探索一番，如何用R實(shí)現(xiàn)郵件考勤全自動化。

載入數(shù)據(jù)

首先，從公共郵箱批量下載數(shù)據(jù)。并載入R。

library(stringr)
library(openxlsx)
#load Name list

NameInformation<-read.xlsx("data/名單_20160308.xlsx",sheet = 1,colNames = TRUE)
str(NameInformation)
NameList<-NameInformation$姓名
NameList<-str_trim(NameList)
#read E-mail name
EmailName<-dir("data/第一次考勤/信件打包")

查看缺勤人員名單

載入數(shù)據(jù)的第一步，當(dāng)然是先看看是否全勤啦～

如果沒人缺勤，后面的日期提取等臟活累活就可以不用干啦！（再次暴露了懶人的本性= =!）

#match name list,remove E-mails which's subject NOT contain names ON the namelist

# detact weather the subject contains the name
ExistStatus<-lapply(NameList, function(x){
  Exist<-str_detect(EmailName,x)
  return(sum(Exist))
})

ExistStatus<-unlist(ExistStatus)

# find not checked names
print(paste0("缺勤的同學(xué)：",NameList[!ExistStatus]))

#str_detect(EmailName,"張三")

果不其然，有些同學(xué)還是不夠團(tuán)結(jié)啊！有幾個(gè)沒發(fā)郵件的。當(dāng)然，謹(jǐn)慎的黃老師還是用str_detect()函數(shù)重新核對了一下，誤傷了同學(xué)可不好辦吶。

提取郵件接收時(shí)間

打開文本編輯器，仔細(xì)看了一下幾封郵件，發(fā)現(xiàn)日期格式大概是這樣的：

Date: Wed, 2 Mar 2016 08:06:28 +0800

先將郵件內(nèi)容讀入一個(gè)list。接著，用正則表達(dá)式，把含有Date: Wed, 2 Mar 2016字樣的這一行提取出來。然后，只提取我們需要的時(shí)間。最后，使用striptime()函數(shù)將字符串轉(zhuǎn)換成時(shí)間格式。然而，在Windows下一直得到的返回值一直是NA，在Linux下可以正確轉(zhuǎn)換。萬惡的微軟！

###########################
## check in email received time   ###
# get email content
 
EmailContent<-lapply(EmailName,function(x){
  readLines(con<-file(paste0("data/第一次考勤/信件打包/",x),encoding = 'UTF-8'))
})

# get date and time
EmailDate<-lapply(EmailContent,function(x){
  date_vec<-str_subset(x,"Date: Wed, 2 Mar 2016")
  date<-str_sub(date_vec,start = 7, end = 30)
  return(date)
})


# format conveting
## windows 下有問題，linux下沒問題
EmailDate<-lapply(EmailDate,function(x){
  strptime(x,"%a, %d %b %Y %I:%M:%S")
})

EmailDate<-unlist(EmailDate)

提取名字

為了做到有憑有據(jù)，還是要從主題提取一下名字。這個(gè)時(shí)候，跟已有的選課名單進(jìn)行一一匹配即可。

然而，我們的課實(shí)在太火爆！有些沒有選到課的同學(xué)，為了刷刷自己的存在感，也發(fā)來了『賀電』。這可不好辦?。?！如果是一個(gè)個(gè)核對，找了半天，發(fā)現(xiàn)沒在選課名單上，豈不氣煞人也！然而，有了R，我只需要一個(gè)IF語句就搞定啦。

還有一些不知是手抖還是為了刷存在感，的同學(xué)，連發(fā)了幾封E-mail。當(dāng)然，我并沒有生氣，我只需要一行代碼就可以輕松化解難題。

########################################33
## exteact name on the subject     ##

NameOnSubject<-lapply(EmailName,function(x){
  ExtractName<-str_extract(x,NameList)
  ## 有的同學(xué)沒有選課也發(fā)了郵件，或者不小心下載了垃圾郵件
  if(sum(is.na(ExtractName))==51){
    return(NA)
  }
  else{
    Name<- ExtractName[!is.na(ExtractName)]
    return(Name)
  }
})

### combine Date and name
NameOnSubject<-unlist(NameOnSubject)

EmailData<-data.frame(CheckTime= EmailDate,NameOnSubject = NameOnSubject,stringsAsFactors = FALSE)

#先去掉名字為NA的郵件
EmailData<-EmailData[!is.na(EmailData$NameOnSubject),]

# 有的同學(xué)手抖，發(fā)了幾封郵件,需要去重
EmailData<-EmailData[!duplicated(EmailData[,"NameOnSubject"]),]

View(EmailData)
str(EmailData)

合并數(shù)據(jù)集

最后，跟選課名單進(jìn)行合并即大功告成啦！

CheckInNameList<-data.frame(Name = NameInformation$姓名,CheckInStatus = ExistStatus)
str(CheckInNameList)
# merge namelist and the EmailData
CheckInNameData<-merge(x = CheckInNameList, y = EmailData, by.x = "Name",
      by.y = "NameOnSubject",all = TRUE,all.x = TRUE )

library(DT)
datatable(CheckInNameData)

其實(shí)仔細(xì)想想，郵箱考勤這個(gè)機(jī)制存在很大的bug。

我們可以一起發(fā)揮智慧，思考一下如何加入防作弊機(jī)制。如給每個(gè)在場的人發(fā)送一個(gè)唯一的隨機(jī)碼隨郵件發(fā)送？（不想上課的同學(xué)會不會打我？！逃～～～～）


數(shù)據(jù)分析咨詢請掃描二維碼

若不方便掃碼，搜微信號：CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1：配置參數(shù) // 參數(shù)2：回調(diào)，回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式，包括：float，popup width: "280px", https: true // 更多配置參數(shù)說明請參見：http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請輸入'+oInput.attr('placeholder')+'！'; var errTxt = '請輸入正確的'+oInput.attr('placeholder')+'！'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }