Загрузка файлов Fasta и загрузка PDF

Question

Я должен передать код другому, в котором вы можете загрузить выбранный вами файл fasta и загрузить выравнивание в формате pdf. Я пытался в течение долгого времени, и я не могу этого добиться. Код (вы должны загрузить определенный файл):

   library(shiny)      
   library(msa) 

   runApp(list(

   mySequences <- readDNAStringSet("/Users/-----/dna3.fas", format = "fasta"),
   myFirstAlignment <- msa(mySequences),


   ui = fluidPage(downloadButton('downloadPDF')),   
   server = function(input, output) {  
   output$downloadPDF = downloadHandler(  
  filename = 'myreport.pdf',  
  content = function(file) {  
    msaPrettyPrint(  
      myFirstAlignment  
      , file = 'myreport.pdf'  
      , output="pdf"  
      , showNames="none"  
      , showLogo="top"  
      , consensusColor="BlueRed"  
      , logoColors="accessible area"  
      , askForOverwrite=FALSE)   
    file.rename("myreport.pdf", file) 

  },
  contentType = 'application/pdf'
   )
   }
   ))

Я был бы признателен за любую помощь. Спасибо