R/Run.StatCharrms.R

In StatCharrms: Statistical Analysis of Chemistry, Histopathology, and Reproduction Endpoints Including Repeated Measures and Multi-Generation Studies

Run.StatCharrms <-
function(){
#' @export
#Main function call for StatCharrms and brings up into screen 
IntroWindow<-gwindow("StatCharrms ", visible=FALSE)
size(IntroWindow)<-c(800,600)
IntroTextframe<-gframe(horizontal = FALSE, container=IntroWindow)
IntroTextMessage1<-glabel('Welcome to StatCharrms',container=IntroTextframe) #Title1
font(IntroTextMessage1)<-list(size=34)
IntroTextMessage2<-glabel('v0.90.95 April 30, 2020',container=IntroTextframe) #Title2  #Update This
font(IntroTextMessage2)<-list(size=16)
IntroTextMessage3<-glabel('Beta -Developmental-',container=IntroTextframe) #Title2
font(IntroTextMessage3)<-list(size=16)
BlankSpace<-gframe(container=IntroTextframe) #Blank space for formats
size(BlankSpace)<-c(1,80)

ButtonBox1<-ggroup(container=IntroTextframe,horizontal = FALSE) #Read me file  
ReadMeButton<-gbutton("Read Me",container=ButtonBox1,where='center',
handler= function(h,...){ReadMeFile()
})
font(ReadMeButton)<-list(size=16)
ExampleButton<-gbutton("Examples ",container=ButtonBox1,where='center',   
handler= function(h,...){generateExamples()})
font(ExampleButton)<-list(size=16)
ButtonBox2<-gframe(horizontal = FALSE,container=ButtonBox1)
HistoButton<-gbutton("Histology Analysis",container=ButtonBox2,where='center',   #
handler= function(h,...){Histopath()})
font(HistoButton)<-list(size=16)
HistoButton<-gbutton("Time to Event  Analysis",container=ButtonBox2,where='center',   
handler= function(h,...){Time2EventMain()})
font(HistoButton)<-list(size=16)

OneWayAnovaButton<-gbutton("Analysis of Other Endpoints  ",container=ButtonBox2,where='center',   
handler= function(h,...){StdEndMain()})
font(OneWayAnovaButton)<-list(size=16)
QuitButton<-gbutton("quit",container=ButtonBox1,where='center',  #Quits the program
handler= function(h,...){dispose(IntroWindow)
quit("no")
})
font(QuitButton)<-list(size=16)

visible(IntroWindow)<-TRUE



if (sessionInfo()$otherPkgs$RGtk2$Version == "2.20.33"){
Message<-'StatCharrms does not work with RGtk2 version 2.20.33.
Please install RGtk2 version 2.20.31.
Directions on how to install a specific version of a package can be found at:\n
https://support.rstudio.com/hc/en-us/articles/219949047-Installing-older-versions-of-packages
\nOr with the "versions" package using the install.versions function.'
 
 PopWindow<-gwindow("Alert!", width = 480, height = 200, 
        visible = FALSE)
  Textframe <- gframe(horizontal = FALSE, container = PopWindow, 
        expand = TRUE, fill = TRUE)
    TextMessage <- gtext(Message, container = Textframe, expand = TRUE, 
        fill = TRUE)
    Okbutton <- gbutton("OK", container = Textframe, handler = function(h, 
        ...) {
        dispose(PopWindow)
    })
    visible(PopWindow) <- TRUE		
message(Message)
}
}