inst/shiny-examples/app-pcadapt/server/tab-rcommand.R

output$rcommand <- renderText({
  inFile <- input$file1
  if (is.null(inFile)){
    return(NULL)
  }
  paste0("object.pcadapt <- pcadapt(x = '", input$file1$name,
         "', K = ", input$K, ", ploidy = ", input$ploidy,
         ", min.maf = ", input$min.maf, ")")
})
bcm-uga/pcadapt documentation built on April 17, 2024, 8:30 a.m.