R/specform.R

In sportiellomike/fluximplied2: Pathway analysis software utilizing rate limiting steps

#' specform
#'
#' @description ensures the user supplied correct syntax to use fluximplied
#'
#' @param species either mus or hsa for mouse or human to make sure the species is defined
#' @param geneformat either entrez or symbol to make sure the rate limiting step database understands what the format of your genes are in
#'
#' @return This sets up the RLS table according to the parameters you put in for fluximplied().
#' @export
#'
#' @examples specform(species='mmu',geneformat='symbol')
specform <- function(species,geneformat) {
library(Cairo)
library(ggplot2)
library(shiny)
library(shinythemes)
library(viridis)
  RLSdatabase<<-read.csv('https://raw.githubusercontent.com/sportiellomike/fluximplieddev/master/RLSdatabasev2.csv',stringsAsFactors = F,colClasses = c(kegg.pathway.id='character'))
  ifelse(species=='Mmu' || species=='MMU' || species=='mmu',
         ifelse(geneformat=='Symbol'||geneformat=='SYMBOL'||geneformat=='symbol', RLSgenes<-RLSdatabase$mouse.gene.symbol,
                ifelse(geneformat== 'Entrezid'||geneformat=='ENTREZ'||geneformat=='Entrez'||geneformat=='entrez'||geneformat=='entrezid'||geneformat=='ENTREZID',
                       RLSgenes<-RLSdatabase$mouse.entrez, print('Your species was accepted as Mmu, but your geneformat was neither Symbol nor ENTREZID'))),
         ifelse(species=='Hsa'||species=='hsa'||species=='HSA',
                ifelse(geneformat=='Symbol'||geneformat=='SYMBOL'||geneformat=='symbol', RLSgenes<-RLSdatabase$human.gene.symbol,
                       ifelse(geneformat== 'Entrezid'||geneformat=='ENTREZ'||geneformat=='Entrez'||geneformat=='entrez'||geneformat=='entrezid'||geneformat=='ENTREZID',
                              RLSgenes<-RLSdatabase$human.entrez,print('Your species was accepted as Hsa, but your geneformat was neither Symbol nor ENTREZID'))),
                print('Your species must be Mmu or Hsa')))
  RLSgenes<<-RLSgenes
}