=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ 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