Я пытаюсь вставить PDF-файл в базу данных BLOB-файлов. UNSUCCESSFULL:
binary <- readBin(input$file_importar$datapath,what = 'raw',n=1e6)
my_file = paste (binary, collapse = "" )
rs <- dbSendQuery(con,paste0("INSERT INTO file_upload (file_name,file) VALUES ( '",paste0(modulo,".pdf"),"',",my_file,")", sep=""))