R/openempty.r

In mariev/chromatoplotsgui: Interactive graphics and interface for chromatoplots

## open the gui, no data to populate
.openemptygui <- function(.cguienv){
  w <- Qt$QWidget()
  
  # window title
  w$setWindowTitle("chromatoplotsgui")
  
  # the nav bar
  step1 <- Qt$QLabel("Load file")
  step2 <- Qt$QLabel("Gen Profile")
  step3 <- Qt$QLabel("Remove Baseline")
  step4 <- Qt$QLabel("Find Peaks")
  step5 <- Qt$QLabel("Group Components")
  step6 <- Qt$QLabel("Correct RT")
  step7 <- Qt$QLabel("Normalize")
  
  navbar <- Qt$QHBoxLayout()
  navbar$addWidget(step1)
  navbar$addWidget(Qt$QLabel(" | "))
  navbar$addWidget(step2)
  navbar$addWidget(Qt$QLabel(" | "))
  navbar$addWidget(step3)
  navbar$addWidget(Qt$QLabel(" | "))
  navbar$addWidget(step4)
  navbar$addWidget(Qt$QLabel(" | "))
  navbar$addWidget(step5)
  navbar$addWidget(Qt$QLabel(" | "))
  navbar$addWidget(step6)
  navbar$addWidget(Qt$QLabel(" | "))
  navbar$addWidget(step7)
  
  
  
  w$setLayout(navbar)
  
  # status bar to indicate current position in workflow
  
  .cguienv$w <- w
}