inst/App/rightPanel/preProc/pointPreprocessor.R

In mslegrand/pointR: pointR

# # dropdown for preprocessor

# dropdown for preprocessor
newPreProcDropDown<-function()
{ 
  dropdownId= "preProcDropDown" #paste0("PtPreProc",id)
  div_id=paste0(dropdownId,'Div')
  absolutePanel( id=div_id, left=5, bottom=5, 
                 dropdown( inputId = dropdownId ,  
                           div( id='preProcBackPanelDropDown', class='backPanel',
                                div( style='margin-left:20px; color: #00ffff; ', h4(textOutput("ptPreProcSource"))  ,
                                radioButtons(inputId = 'preProcChooser', 
                                             label = 'Preproc chooser', 
                                             choiceNames=c('none'),
                                             choiceValues= c('none'),
                                             width="80%"
                                )),
                                
                                div(style="width: 100%; overflow: hidden; margin-top:5px; margin-bottom:5px",
                                    div( style="float:right;",
                                         actionButton(inputId= "commitPreProcChoiceButton", label='Commit', class=c("btn") )
                                    ),
                                    div( style="float:left;",
                                         actionButton(inputId= "dimissPreProcChoiceButton", label='Dismiss', class=c("btn") )
                                    )
                                )
                           ),
                           icon=icon("filter", lib = "glyphicon"), #icon=icon("wrench", lib = "glyphicon"), #icon = icon("toolbox"),
                           status = "primary", width = "400px", size='sm',
                           up=TRUE, right=FALSE,
                           animate = animateOptions(
                             enter = animations$fading_entrances$fadeInLeftBig,
                             exit  = animations$fading_exits$fadeOutRightBig
                           )
                 )
  ) 
}