package Ġorg . jetbrains . r . icons Ċ Ċ import Ġcom . intellij . icons . All Icons Ċ import Ġcom . intellij . ide . Icon Provider Ċ import Ġcom . intellij . psi . Psi Directory Ċ import Ġcom . intellij . psi . Psi Element Ċ import Ġcom . intellij . psi . Psi File Ċ import Ġcom . intellij . psi . Psi FileSystem Item Ċ import Ġicons . R Icons Ċ import Ġorg . jetbrains . r . packages . build . R Package Build Util Ċ import Ġjavax . swing . Icon Ċ Ċ class ĠR Project Icon Provider Ġ: ĠIcon Provider () Ġ{ ĊĠ Ġoverride Ġfun Ġget Icon ( element : ĠPsi Element , Ġflags : ĠInt ): ĠIcon ? Ġ{ ĊĠĠĠ Ġif Ġ( R Package Build Util . is Package ( element . project )) Ġ{ ĊĠĠĠĠĠ Ġif Ġ( element Ġis ĠPsi File Ġ&& ĠisIn Test Directory ( element )) Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn ĠR Icons . Packages . R Test ĊĠĠĠĠĠ Ġ} ĊĠĠĠĠĠ Ġif Ġ( element Ġis ĠPsi Directory Ġ&& ĠisIn Project BasePath ( element )) Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġwhen Ġ( element . name ) Ġ{ ĊĠĠĠĠĠĠĠĠĠ Ġ" tests " Ġ-> ĠAll Icons . Modules . Test Root ĊĠĠĠĠĠĠĠĠĠ Ġ" src " Ġ-> ĠAll Icons . Modules . Source Root ĊĠĠĠĠĠĠĠĠĠ Ġ" R " Ġ-> ĠAll Icons . Modules . Source Root ĊĠĠĠĠĠĠĠĠĠ Ġ" man " Ġ-> ĠR Icons . Packages . Documents Root ĊĠĠĠĠĠĠĠĠĠ Ġelse Ġ-> Ġnull ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĠĠĠ Ġreturn Ġnull ĊĠ Ġ} ĊĊĠ Ġfun ĠisIn Test Directory ( e : ĠPsi File ): ĠBoolean Ġ{ ĊĠĠĠ Ġval Ġparent Ġ= Ġe . parent Ġ?: Ġreturn Ġfalse ĊĠĠĠ Ġreturn Ġ( parent . name Ġ== Ġ" test that " Ġ&& Ġparent . parent Ġ!= Ġnull Ġ&& Ġparent . parent !!. name Ġ== Ġ" tests ") ĊĠĠĠĠĠĠĠĠĠĠ Ġ|| Ġparent . name Ġ== Ġ" tests " ĊĠ Ġ} ĊĊĠ Ġfun ĠisIn Project BasePath ( e : ĠPsi FileSystem Item ): ĠBoolean Ġ{ ĊĠĠĠ Ġreturn Ġ( e . parent Ġ?: Ġreturn Ġfalse ). virtual File . path Ġ== Ġe . project . basePath ĊĠ Ġ} Ċ }