RStudio Logo

A logo for RStudio. Skip to output

Here we assign a Gaussian blur is to the filter attribute of the ellipse with a specific value “gBlur” for the id. This allows us to refer to this filter later for the second ellipse. (Note: This is a construction differs from the one presented in the Users Guide)

WH<-c(800,400)
radius<-120
center<-WH/2
svgR( wh=WH,
  ellipse(cxy=center+c(0,radius), rxy=c(radius, 0.2*radius), fill="grey",  #shadow
    filter=filter( id="gBlur", xy=-c(.05,.05), wh=c(1.1,1.1), feGaussianBlur(stdDeviation=1.5))
  ),
  circle( cxy=WH/2, r=radius, stroke="none", 
    fill = radialGradient( cxy=c(.5,.8), fxy=c(.5,1), colors=c("#FFFFFF", "#004488"  ))
  ), 
  ellipse(cxy=WH/2-c(0,radius/2), rxy=radius*c(.6, .5), 
    fill=linearGradient( xy1=c(0,.1), xy2=c(0,.8), colors=c("#FFFFFF" , "#4488CC")),
    filter= "url(#gBlur)"
  ),          
  text("R", font.size=144,  font.family = "serif",  cxy=WH/2, fill="white")
)