R/fun.getstate.R

In ThomData/R_THEME: THEmatic Model Exploration

.fun.getStateComp<-function(input){ 
  c(input$EQModDesComp1, 
    input$EQModDesComp2, 
    input$EQModDesComp3, 
    input$EQModDesComp4, 
    input$EQModDesComp5, 
    input$EQModDesComp6, 
    input$EQModDesComp7, 
    input$EQModDesComp8,
    input$EQModDesComp9, 
    input$EQModDesComp10,
    input$EQModDesComp11, 
    input$EQModDesComp12, 
    input$EQModDesComp13, 
    input$EQModDesComp14, 
    input$EQModDesComp15, 
    input$EQModDesComp16, 
    input$EQModDesComp17, 
    input$EQModDesComp18,
    input$EQModDesComp19, 
    input$EQModDesComp20)
}  

.fun.getStateEQ1<-function(input){ 
  c(input$EQ1ModDes1, 
    input$EQ1ModDes2, 
    input$EQ1ModDes3, 
    input$EQ1ModDes4, 
    input$EQ1ModDes5, 
    input$EQ1ModDes6, 
    input$EQ1ModDes7, 
    input$EQ1ModDes8,
    input$EQ1ModDes9, 
    input$EQ1ModDes10,
    input$EQ1ModDes11, 
    input$EQ1ModDes12, 
    input$EQ1ModDes13, 
    input$EQ1ModDes14, 
    input$EQ1ModDes15, 
    input$EQ1ModDes16, 
    input$EQ1ModDes17, 
    input$EQ1ModDes18,
    input$EQ1ModDes19, 
    input$EQ1ModDes20)
}  

.fun.getStateEQ2<-function(input){ 
  c(input$EQ2ModDes1, 
    input$EQ2ModDes2, 
    input$EQ2ModDes3, 
    input$EQ2ModDes4, 
    input$EQ2ModDes5, 
    input$EQ2ModDes6, 
    input$EQ2ModDes7, 
    input$EQ2ModDes8,
    input$EQ2ModDes9, 
    input$EQ2ModDes10,
    input$EQ2ModDes11, 
    input$EQ2ModDes12, 
    input$EQ2ModDes13, 
    input$EQ2ModDes14, 
    input$EQ2ModDes15, 
    input$EQ2ModDes16, 
    input$EQ2ModDes17, 
    input$EQ2ModDes18,
    input$EQ2ModDes19, 
    input$EQ2ModDes20)
}  

.fun.getStateEQ3<-function(input){ 
  c(input$EQ3ModDes1, 
    input$EQ3ModDes2, 
    input$EQ3ModDes3, 
    input$EQ3ModDes4, 
    input$EQ3ModDes5, 
    input$EQ3ModDes6, 
    input$EQ3ModDes7, 
    input$EQ3ModDes8,
    input$EQ3ModDes9, 
    input$EQ3ModDes10,
    input$EQ3ModDes11, 
    input$EQ3ModDes12, 
    input$EQ3ModDes13, 
    input$EQ3ModDes14, 
    input$EQ3ModDes15, 
    input$EQ3ModDes16, 
    input$EQ3ModDes17, 
    input$EQ3ModDes18,
    input$EQ3ModDes19, 
    input$EQ3ModDes20)
} 

.fun.getStateEQ4<-function(input){ 
  c(input$EQ4ModDes1, 
    input$EQ4ModDes2, 
    input$EQ4ModDes3, 
    input$EQ4ModDes4, 
    input$EQ4ModDes5, 
    input$EQ4ModDes6, 
    input$EQ4ModDes7, 
    input$EQ4ModDes8,
    input$EQ4ModDes9, 
    input$EQ4ModDes10,
    input$EQ4ModDes11, 
    input$EQ4ModDes12, 
    input$EQ4ModDes13, 
    input$EQ4ModDes14, 
    input$EQ4ModDes15, 
    input$EQ4ModDes16, 
    input$EQ4ModDes17, 
    input$EQ4ModDes18,
    input$EQ4ModDes19, 
    input$EQ4ModDes20)
}  

## Test input[[paste0(EQ1ModDes",k)]]