snapshot() fails with error message Error in if (package == "R") return() : missing value where TRUE/FALSE needed

snapshot() fails with error message Error in if (package == "R") return() : missing value where TRUE/FALSE needed #2166