Update source_toolkit.R

Added functions.