===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-548-            for ( i in seq_along(arg$h) )
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R:549:                eval(parse(text = sprintf("pal_args$h%1$d <- arg$h[%1$dL]", i)))
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-550-        }
##############################################
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-579-            for ( i in seq(1, length(arg$c)) )
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R:580:                eval(parse(text = sprintf("pal_args$c%1$d <- arg$c[%1$dL]", i)))
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-581-        }
##############################################
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-583-            for ( i in seq_along(arg$l) )
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R:584:                eval(parse(text = sprintf("pal_args$l%1$d <- arg$l[%1$dL]", i)))
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-585-        }
##############################################
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-587-            for ( i in seq_along(arg$power) )
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R:588:                eval(parse(text = sprintf("pal_args$p%1$d <- arg$power[%1$dL]", i)))
r-cran-colorspace-2.0-0+dfsg/R/choose_palette.R-589-        }
##############################################
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R-59-      for ( elem in sliderElements ) {
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R:60:         eval(parse(text = sprintf("pal$%s <- as.numeric(input$%s)", elem, elem)))
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R-61-      }
##############################################
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R-158-   setValueByUser <- function(elem) {
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R:159:      value = eval(parse(text = sprintf("input$%sval", elem)))
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R-160-      if ( nchar(value) > 0 ) {
##############################################
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R-201-         if ( ! exists(input$PAL) ) return(NULL)
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R:202:         base_pal <- eval(parse(text = input$PAL))
r-cran-colorspace-2.0-0+dfsg/inst/hclwizard/server.R-203-	 pal <- function(..., fixup = FALSE) if(input$reverse) rev(base_pal(...)) else base_pal(...)