inst/shiny/multipleViewerPageSelector.R

In sybrohee/pickpeak: a simple shiny app

#' module multipleViewerPageSelectorUI UI function
#' @export
multipleViewerPageSelectorUI <- function(id){
  ns <- NS(id)
  fluidPage(
	fluidRow(
		column(6, htmlOutput(ns("samplesPerPageTitle"))),
		column(5, htmlOutput(ns("pageNbTitle")))
	),
	fluidRow(
		column(6, uiOutput(ns("samplesPerPage"))),
		column(5, uiOutput(ns("pageNb")))
	)
  ) 
}

#' module multipleViewerPageSelectorUI server function
#' @export
multipleViewerPageSelector <- function(input,output,session, data, selected.samples, parameters) {
  ns <- session$ns

  output$samplesPerPage <- renderUI({
    req(data()$data$intensities$id)
    numericInput(ns("samplesPerPage"), label = "",  value = 6)
  })
  output$samplesPerPageTitle <- renderText({
    req(data()$data$intensities$id)
    "<b>Samples per page</b>"
  })  
  output$pageNbTitle <- renderText({
    req(data()$data$intensities$id)
    req(input$samplesPerPage)  
    "<b>Page nb</b>"
  }) 
  
  
  output$pageNb <- renderUI({
    req(data()$data$intensities$id)
    req(input$samplesPerPage)
    above.samples <- vector()
    ids <- names(parameters()$aboveSample())
	for (id in ids) {
		if (parameters()$aboveSample()[[id]]) {
			above.samples <- append(above.samples, id)
		}
	}
	nbabovesamples <- length(above.samples)
	allselectedsamples <- setdiff(selected.samples(), above.samples)
    nbselectedsamples <- length(selected.samples())
    sample.per.pages <- input$samplesPerPage - nbabovesamples

    req(input$samplesPerPage < nbselectedsamples)
    maxval <- ceiling(nbselectedsamples/sample.per.pages )

    numericInput(ns("pageNb"), label = "",  value = 1, min = 1, max = maxval)
  })
  
  return(
	list(
			samplesPerPage = reactive(input$samplesPerPage),
			pageNb = reactive(input$pageNb)
			
		)
  )

}