Update ideogram.R