sigoraWrappR not working - missing function getSymbolFromSwissprotID

[Witold Wolski]

> ### Name: sigoraWrappR
> ### Title: sigora Wrapper function
> ### Aliases: sigoraWrappR
> 
> ### ** Examples
> 
> data("exampleContrastData", package = "fgczgseaora")

> data("idmap", package = "sigora")

> if(TRUE){
+ df <- getSymbolFromSwissprotID(exampleContrastData)
+ sigoraWrappR(fc_col = colnames(df)[7], GPSrepos = sigora::kegH, df = df)
+ }