comparison FunctPAMPAGalaxy.r @ 4:07b081730994 draft

"planemo upload for repository https://github.com/ColineRoyaux/PAMPA-Galaxy commit cd938a05cb066b16f2518159fa0ff5e3ed8a2b2b"
author ecology
date Mon, 26 Apr 2021 16:04:47 +0000
parents 8d8aec182fb1
children
comparison
equal deleted inserted replaced
3:8d8aec182fb1 4:07b081730994
1479 ## ---------------------------------------------------------------------- 1479 ## ----------------------------------------------------------------------
1480 ## Author: Yves Reecht, Date: 10 sept. 2012, 15:26 modified by Coline ROYAUX 04 june 2020 1480 ## Author: Yves Reecht, Date: 10 sept. 2012, 15:26 modified by Coline ROYAUX 04 june 2020
1481 1481
1482 ## Open file : 1482 ## Open file :
1483 f_ile <- file(description = filename, 1483 f_ile <- file(description = filename,
1484 open = "w", encoding = "latin1") 1484 open = "w", encoding = "UTF-8")
1485 1485
1486 ## if error : 1486 ## if error :
1487 on.exit(if (exists("filename") && 1487 on.exit(if (exists("filename") &&
1488 tryCatch(isOpen(f_ile), 1488 tryCatch(isOpen(f_ile),
1489 error = function(e)return(FALSE))) close(f_ile)) 1489 error = function(e)return(FALSE))) close(f_ile))