===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-survey-4.0/R/olr.R-327- mcall <- match.call(svyolr, formula$call)
r-cran-survey-4.0/R/olr.R:328: design<- eval(mcall$design)
r-cran-survey-4.0/R/olr.R:329: formula<-eval(mcall$formula)
r-cran-survey-4.0/R/olr.R-330- mf<-model.frame(formula,model.frame(design))
##############################################
r-cran-survey-4.0/R/logrank.R-192- mfsplit$.weights<-weights(design,"sampling")[match(mfsplit$.id, rownames(mf))]*w(mfsplit$.time)
r-cran-survey-4.0/R/logrank.R:193: expdesign<-svydesign(ids=eval(design$call$id), strata=eval(design$call$strata), data=mfsplit, weights=~.weights)
r-cran-survey-4.0/R/logrank.R-194- #svylogrank(formula,expdesign)
##############################################
r-cran-survey-4.0/R/DBI.R-215- x$variables<-getvars(make.formula(all.vars(e)), x$db$connection, x$db$tablename,updates=x$updates, subset=x$subset)
r-cran-survey-4.0/R/DBI.R:216: r <- eval(e, x$variables, parent.frame())
r-cran-survey-4.0/R/DBI.R-217- r <- r & !is.na(r)
##############################################
r-cran-survey-4.0/R/surveychisq.R-432-
r-cran-survey-4.0/R/surveychisq.R:433: test<-eval(bquote(svychisq(.(ff), design=.(call$design),
r-cran-survey-4.0/R/surveychisq.R-434- statistic=.(statistic))), env)
##############################################
r-cran-survey-4.0/R/twophase.R-89- if (inherits(strata[[2]],"formula"))
r-cran-survey-4.0/R/twophase.R:90: sa<-eval(attr(terms(strata[[2]]),"variables")[[2]],d1$variables)
r-cran-survey-4.0/R/twophase.R-91- else
##############################################
r-cran-survey-4.0/R/twophase.R-341- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/twophase.R:342: x<-eval(x, design$variables)
r-cran-survey-4.0/R/twophase.R-343- else {
##############################################
r-cran-survey-4.0/R/twophase.R-406- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/twophase.R:407: x<-eval(x, design$variables)
r-cran-survey-4.0/R/twophase.R-408- else {
##############################################
r-cran-survey-4.0/R/twophase.R-493- else if(typeof(numerator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/twophase.R:494: numerator<-eval(numerator, design$variables)
r-cran-survey-4.0/R/twophase.R-495- if (inherits(denominator,"formula"))
##############################################
r-cran-survey-4.0/R/twophase.R-612- for(j in seq(along=dots)){
r-cran-survey-4.0/R/twophase.R:613: object$phase1$sample$variables[,newnames[j]]<-eval(dots[[j]], object$phase1$sample$variables, parent.frame())
r-cran-survey-4.0/R/twophase.R:614: object$phase1$full$variables[,newnames[j]]<-eval(dots[[j]], object$phase1$full$variables, parent.frame())
r-cran-survey-4.0/R/twophase.R-615- }
##############################################
r-cran-survey-4.0/R/twophase.R-622- e <- substitute(subset)
r-cran-survey-4.0/R/twophase.R:623: r <- eval(e, x$phase1$sample$variables, parent.frame())
r-cran-survey-4.0/R/twophase.R-624- r <- r & !is.na(r)
##############################################
r-cran-survey-4.0/R/survey.R-305- for(j in seq(along=dots)){
r-cran-survey-4.0/R/survey.R:306: object$variables[,newnames[j]]<-eval(dots[[j]],object$variables, parent.frame())
r-cran-survey-4.0/R/survey.R-307- }
##############################################
r-cran-survey-4.0/R/survey.R-315- e <- substitute(subset)
r-cran-survey-4.0/R/survey.R:316: r <- eval(e, x$variables, parent.frame())
r-cran-survey-4.0/R/survey.R-317- r <- r & !is.na(r)
##############################################
r-cran-survey-4.0/R/survey.R-535- else if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/survey.R:536: x<-eval(x, design$variables)
r-cran-survey-4.0/R/survey.R-537-
##############################################
r-cran-survey-4.0/R/survey.R-653- } else if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/survey.R:654: x<-eval(x, design$variables)
r-cran-survey-4.0/R/survey.R-655-
##############################################
r-cran-survey-4.0/R/survey.R-690- else if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/survey.R:691: x<-eval(x, design$variables)
r-cran-survey-4.0/R/survey.R-692-
##############################################
r-cran-survey-4.0/R/survey.R-951- else if(typeof(numerator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/survey.R:952: numerator<-eval(numerator, design$variables)
r-cran-survey-4.0/R/survey.R-953- if (inherits(denominator,"formula"))
##############################################
r-cran-survey-4.0/R/survey.R-955- else if(typeof(denominator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/survey.R:956: denominator<-eval(denominator, design$variables)
r-cran-survey-4.0/R/survey.R-957-
##############################################
r-cran-survey-4.0/R/svymi.R-83- e<-substitute(subset)
r-cran-survey-4.0/R/svymi.R:84: r<-eval(e,x$designs[[1]]$variables, parent.frame())
r-cran-survey-4.0/R/svymi.R-85- r <- r & !is.na( r )
##############################################
r-cran-survey-4.0/R/svymi.R-88- for(i in 2:length(x$designs)){
r-cran-survey-4.0/R/svymi.R:89: r1<-eval(e,x$designs[[i]]$variables, parent.frame())
r-cran-survey-4.0/R/svymi.R-90- x$designs[[i]]<-x$designs[[i]][r1,]
##############################################
r-cran-survey-4.0/R/dbiupdate.R-28- idx.j<-match(history[[i]][j],names(updates[[i]]))
r-cran-survey-4.0/R/dbiupdate.R:29: outputs[[j]]<-eval(updates[[i]][[idx.j]]$expression, df)
r-cran-survey-4.0/R/dbiupdate.R-30- }
##############################################
r-cran-survey-4.0/R/multistage.R-635- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/multistage.R:636: x<-eval(x, design$variables)
r-cran-survey-4.0/R/multistage.R-637- else {
##############################################
r-cran-survey-4.0/R/multistage.R-705- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/multistage.R:706: x<-eval(x, design$variables)
r-cran-survey-4.0/R/multistage.R-707- else if(is.data.frame(x) && any(sapply(x,is.factor))){
##############################################
r-cran-survey-4.0/R/multistage.R-788- else if(typeof(numerator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/multistage.R:789: numerator<-eval(numerator, design$variables)
r-cran-survey-4.0/R/multistage.R-790- if (inherits(denominator,"formula"))
##############################################
r-cran-survey-4.0/R/multistage.R-792- else if(typeof(denominator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/multistage.R:793: denominator<-eval(denominator, design$variables)
r-cran-survey-4.0/R/multistage.R-794-
##############################################
r-cran-survey-4.0/R/twophase2.R-207- if (inherits(strata[[2]],"formula"))
r-cran-survey-4.0/R/twophase2.R:208: sa<-eval(attr(terms(strata[[2]]),"variables")[[2]],d1$variables)
r-cran-survey-4.0/R/twophase2.R-209- else
##############################################
r-cran-survey-4.0/R/twophase2.R-338- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/twophase2.R:339: x<-eval(x, design$variables)
r-cran-survey-4.0/R/twophase2.R-340- else {
##############################################
r-cran-survey-4.0/R/twophase2.R-403- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/twophase2.R:404: x<-eval(x, design$variables)
r-cran-survey-4.0/R/twophase2.R-405- else {
##############################################
r-cran-survey-4.0/R/twophase2.R-488- else if(typeof(numerator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/twophase2.R:489: numerator<-eval(numerator, design$variables)
r-cran-survey-4.0/R/twophase2.R-490- if (inherits(denominator,"formula"))
##############################################
r-cran-survey-4.0/R/twophase2.R-604- for(j in seq(along=dots)){
r-cran-survey-4.0/R/twophase2.R:605: object$phase1$sample$variables[,newnames[j]]<-eval(dots[[j]], object$phase1$sample$variables, parent.frame())
r-cran-survey-4.0/R/twophase2.R:606: object$phase1$full$variables[,newnames[j]]<-eval(dots[[j]], object$phase1$full$variables, parent.frame())
r-cran-survey-4.0/R/twophase2.R-607- }
##############################################
r-cran-survey-4.0/R/twophase2.R-614- e <- substitute(subset)
r-cran-survey-4.0/R/twophase2.R:615: r <- eval(e, x$phase1$sample$variables, parent.frame())
r-cran-survey-4.0/R/twophase2.R-616- r <- r & !is.na(r)
##############################################
r-cran-survey-4.0/R/svypredmeans.R-3-
r-cran-survey-4.0/R/svypredmeans.R:4: design<-eval(bquote(update(adjustmodel$survey.design, .groupfactor=.(groupfactor[[2]]))))
r-cran-survey-4.0/R/svypredmeans.R-5- groups<-unique(model.frame(design)$.groupfactor)
##############################################
r-cran-survey-4.0/R/surveyrep.R-667- e <- substitute(subset)
r-cran-survey-4.0/R/surveyrep.R:668: r <- eval(e, x$variables, parent.frame())
r-cran-survey-4.0/R/surveyrep.R-669- r <- r & !is.na(r)
##############################################
r-cran-survey-4.0/R/surveyrep.R-680- for(j in seq(along=dots)){
r-cran-survey-4.0/R/surveyrep.R:681: object$variables[,newnames[j]]<-eval(dots[[j]],object$variables, parent.frame())
r-cran-survey-4.0/R/surveyrep.R-682- }
##############################################
r-cran-survey-4.0/R/surveyrep.R-718- else if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/surveyrep.R:719: x<-eval(x, design$variables)
r-cran-survey-4.0/R/surveyrep.R-720-
##############################################
r-cran-survey-4.0/R/surveyrep.R-940- else if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/surveyrep.R:941: x<-eval(x, design$variables)
r-cran-survey-4.0/R/surveyrep.R-942-
##############################################
r-cran-survey-4.0/R/surveyrep.R-1040- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/surveyrep.R:1041: x<-eval(x, design$variables)
r-cran-survey-4.0/R/surveyrep.R-1042- else {
##############################################
r-cran-survey-4.0/R/surveyrep.R-1140- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/surveyrep.R:1141: x<-eval(x, design$variables)
r-cran-survey-4.0/R/surveyrep.R-1142- else {
##############################################
r-cran-survey-4.0/R/surveyrep.R-1237- subset<-substitute(subset)
r-cran-survey-4.0/R/surveyrep.R:1238: subset<-eval(subset, design$variables, parent.frame())
r-cran-survey-4.0/R/surveyrep.R-1239- if (!is.null(subset))
##############################################
r-cran-survey-4.0/R/surveyrep.R-1354- subset<-substitute(subset)
r-cran-survey-4.0/R/surveyrep.R:1355: subset<-eval(subset, design$variables, parent.frame())
r-cran-survey-4.0/R/surveyrep.R-1356- if (!is.null(subset))
##############################################
r-cran-survey-4.0/R/surveyrep.R-1597- else if(typeof(numerator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/surveyrep.R:1598: numerator<-eval(numerator, design$variables)
r-cran-survey-4.0/R/surveyrep.R-1599- if (inherits(denominator,"formula"))
##############################################
r-cran-survey-4.0/R/surveyrep.R-1601- else if(typeof(denominator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/surveyrep.R:1602: denominator<-eval(denominator, design$variables)
r-cran-survey-4.0/R/surveyrep.R-1603-
##############################################
r-cran-survey-4.0/R/pps.R-262- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/pps.R:263: x<-eval(x, design$variables)
r-cran-survey-4.0/R/pps.R-264- else {
##############################################
r-cran-survey-4.0/R/pps.R-326- if(typeof(x) %in% c("expression","symbol"))
r-cran-survey-4.0/R/pps.R:327: x<-eval(x, design$variables)
r-cran-survey-4.0/R/pps.R-328- else {
##############################################
r-cran-survey-4.0/R/pps.R-404- else if(typeof(numerator) %in% c("expression","symbol"))
r-cran-survey-4.0/R/pps.R:405: numerator<-eval(numerator, design$variables)
r-cran-survey-4.0/R/pps.R-406- if (inherits(denominator,"formula"))
##############################################
r-cran-survey-4.0/R/surveyby.R-56- vartype<-match.arg(vartype,several.ok=TRUE)
r-cran-survey-4.0/R/surveyby.R:57: nvartype<-base::which(eval(formals(sys.function())$vartype) %in% vartype)
r-cran-survey-4.0/R/surveyby.R-58- if(any(is.na(nvartype))) stop("invalid vartype")
##############################################
r-cran-survey-4.0/R/surveyby.R-310- vartype<-match.arg(vartype,several.ok=TRUE)
r-cran-survey-4.0/R/surveyby.R:311: nvartype<-base::which(eval(formals(sys.function())$vartype) %in% vartype)
r-cran-survey-4.0/R/surveyby.R-312- if(any(is.na(nvartype))) stop("invalid vartype")
##############################################
r-cran-survey-4.0/debian/tests/run-unit-test-6-if [ "$AUTOPKGTEST_TMP" = "" ] ; then
r-cran-survey-4.0/debian/tests/run-unit-test:7: AUTOPKGTEST_TMP=`mktemp -d /tmp/${debname}-test.XXXXXX`
r-cran-survey-4.0/debian/tests/run-unit-test-8- trap "rm -rf $AUTOPKGTEST_TMP" 0 INT QUIT ABRT PIPE TERM