Nothing
opt33 <- eventReactive(input$RunOpt33, {
cat("Opt33\n")
dem = input$Dememo33
nbatchs = input$Nbatches33
niters = input$Niters33
ficout = tempfile()
ficin = GenepopFile()$datapath
cat(ficin)
setRandomSeed(getSeed(input$randomSeed))
RPDGenotypicAllPopulationDifferentiation(ficin, outputFile = ficout, dememorization = dem, batches = nbatchs, iterations = niters)
file.rename("cmdline.txt", "cmdline.old")
ficout
})
output$Opt33out <- renderText({
filePath <- opt33()
fileText <- paste(readLines(filePath), collapse = "\n")
fileText
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.