server.R

                  text(0.425,y.max*0.6,bquote(paste("n",sep=" ")),cex=cex.samples)
                  text(0.675,y.max*0.6,bquote(paste("%",sep=" ")),cex=cex.samples)
                  text(0.175,y.max*0.4,"Non",col=color.false,cex=cex.samples*0.85)
                  text(0.175,y.max*0.2,"Oui",col=color.true,cex=cex.samples*0.85)
                  if(cv$n.samples>0) {
                      ICvsmu0.mat<-matrix(c(cv$n.ic.k.mu0.inc.allmu.vec[(v$mx-mu.vec[1]+1)],cv$n.samples-cv$n.ic.k.mu0.inc.allmu.vec[(v$mx-mu.vec[1]+1)],cv$pc.ic.k.mu0.inc.allmu.vec[(v$mx-mu.vec[1]+1)],100-cv$pc.ic.k.mu0.inc.allmu.vec[(v$mx-mu.vec[1]+1)]),ncol=2)
                      ICvsmu0.mat<-round(ICvsmu0.mat,0)
                      text(0.425,y.max*0.4,bquote(paste(.(ICvsmu0.mat[1,1]),sep=" ")),col=color.false,cex=cex.samples)
                      text(0.675,y.max*0.4,bquote(paste(.(ICvsmu0.mat[1,2]),sep=" ")),col=color.false,cex=cex.samples)
                      text(0.425,y.max*0.2,bquote(paste(.(ICvsmu0.mat[2,1]),sep=" ")),col=color.true,cex=cex.samples)
                      text(0.675,y.max*0.2,bquote(paste(.(ICvsmu0.mat[2,2]),sep=" ")),col=color.true,cex=cex.samples)
                  }
              }
          }
      }
  }, height = getPlotHeight, width=getPlotWidth)

###################################################################
  output$DataTable <- renderTable({
    v<-getInputValues()
    calc.new<-getComputedValues()
    cv<-rv$cv.ls
    ## Transpose the sample list
    if(cv$n.samples>0){
        samples.as.list<-list()
        for(i in 1:cv$n.samples){
            samples.as.list[[i]]<-c(round(cv$samples.x.mat[i,],2),c(""),round(cv$samples.x.m.vec[i],2),round(cv$samples.x.sd.vec[i],2),c(""),round(cv$ic.k.limit.mat[i,1],2),round(cv$ic.k.limit.mat[i,2],2))
        }
        samples.as.matrix<- do.call(rbind,samples.as.list) 
        transposed.samples<-lapply(seq_len(ncol(samples.as.matrix)),function(i) samples.as.matrix[,i]) 
        d<-data.frame(transposed.samples)
        colnames(d)<-c(paste("X",1:v$n,sep="")," ","Moy","Sd"," ","LiICk","LsICk")
        d
    }
  })
  
###################################################################
  output$test1 <- renderText({
    v<-getInputValues()
    calc.new<-getComputedValues()
    cv<-rv$cv.ls
    t<-cv$samples.y.toshow[[1]][1]-0.002
    paste("Tab",input$Tabset,"n inc µo :",cv$n.ic.k.inc.mu0," | N :",cv$n.samples," | takesample : ",input$takesample,rv$last.takesample.value," | Last action : ",rv$lastAction," | Sample.exist :",cv$samples.exist," | sample to show : ",length(cv$samples.x.toshow[[1]])," ",length(cv$samples.y.toshow[[1]])," ",cv$samples.x.from," ",cv$samples.x.to," ",t,sep=" ")
  })
  
  output$test2 <- renderText({
    paste("Tab",input$Tabset,sep=" ")
  })
  
  output$test3 <- renderText({
    paste("Tab",input$Tabset,sep=" ")
  })
  
})