check_empty_beautier_folder()
f <- get_remove_hex_fun()
# /home/john/beast2.xml.state
f("/home/john/beast2_186c7404208c.xml.state")
# beast2.xml.state
f("beast2_186c7404208c.xml.state")
# NA
f(NA)
check_empty_beautier_folder()
Run the code above in your browser using DataLab