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

熱線電話：13121318867

登錄
首頁精彩閱讀R變量生成時的時間?_數(shù)據(jù)分析師
R變量生成時的時間?_數(shù)據(jù)分析師
2014-12-12
收藏

R變量生成時的時間_數(shù)據(jù)分析師


在R語言中怎么獲得一個變量生成時的時間，比如 x=1 x生成的時間

一個函數(shù)能夠view 最近生成的變量。

系統(tǒng)默認(rèn)應(yīng)該沒有記錄各個對象生成的時間點(diǎn)這個過程，但應(yīng)該可以通過撰寫函數(shù)的方式來實(shí)現(xiàn)。

這個記錄變量生成時間，差不多相當(dāng)于日志記錄的功能，最簡單的我想到的，你可以寫一個logger函數(shù)，然后把賦值的操作在這個log函數(shù)里面進(jìn)行。

下面是一個簡單的實(shí)現(xiàn)，

logtime = NULL
logname = NULL

logger <- function( exp ,env = parent.frame()){
temp = as.list(substitute(exp))
assign(x = as.character(temp[[2]]), value = temp[[3]], envir = env)
assign(x = “l(fā)ogname”, value = c(env$logname,as.character(temp[[2]])), envir = env)
assign(x = “l(fā)ogtime”, value = as.POSIXct(c(env$logtime,Sys.time()),origin = “1970-01-01″), envir = env)
}

logger( xx <- 22 )

> ls()
[1] “l(fā)ogger” “l(fā)ogname” “l(fā)ogtime”

> logger(xx<-22)

> ls()
[1] “l(fā)ogger” “l(fā)ogname” “l(fā)ogtime” “xx”
> xx
[1] 22
> logname
[1] “xx”
> logtime
[1] “2014-12-11 23:02:49 CST”

> logger(yy<-11)

> data.frame(logtime,logname)
logtime logname
1 2014-12-11 23:02:49 xx
2 2014-12-11 23:03:43 yy

數(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)的第一個參數(shù)驗(yàn)證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時表示是新驗(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){ //倒計時完成 $(".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); }