Simeon Simeonov ssimeonov

Environment confusion in proto

Problem Description

This gist demonstrates a strange behavior in the proto package for R when functions are dynamically invoked via do.call. When do.call is invoked inside a proto object, variables that belong to a function's closure are not visible, even though a naive navigation of the environment chain shows these variables to be present. This problem does not occur when do.call is used outside of proto.

Reproducibility

The problem is isolated to a testthat test in test-cmd.r.

	<!-- Template Id = 13,901 Template Name = Banner Creative (Flash) - In Page Multiples - [DFA] -->
	<!-- Copyright 2006 DoubleClick Inc., All rights reserved. -->

	<!-- Utilities for using Flash -->
	<script src="http://s0.2mdn.net/879366/flashwrite_1_2.js">
	</script>

	<!-- Script to active Flash ad unit -->
	<SCRIPT LANGUAGE="JavaScript">
	<!--

	// This sets up AdChoice notice

	document.write("<style type=\"text/css\">\n");
	// AdChoice image: http://s.yimg.com/hl/a/optimized/adchoice_1.png
	document.write(".can_ad_slug {font-family:arial;font-size:11px;color:#999;text-decoration:none;background-image:url(\'http://s.yimg.com/hl/a/optimized/adchoice_1.png\');background-repeat:no-repeat;background-position:right;padding:0px 14px 0px 1px !important;margin:1px 0px 1px 0;cursor:hand;height:12px;display:block;line-height:12px;}\n");
	document.write(".ad_slug_table a {text-decoration:none;}\n");
	document.write(".ad_slug_table div.CAN_marker { display:none }\n");
	document.write("</style>\n");
	document.write("<div class=\"CAN_ad\">\n");
	document.write("<table class=\"ad_slug_table\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">\n");

	<!-- Leaderboard slot on Yahoo!'s health network -->
	<div id="yahoohealth-n-leaderboard-ad" style="border:0;margin-top:0;">
	<div style="margin-bottom:9px;text-align:center">
	<!-- Ad unit delivery script if scripting is available -->
	<script language="JavaScript" type="text/javascript" src="http://us.adserver.yahoo.com/a?f=96843138&p=health&l=N&c=r&rs=cnp:healthline&at=hlids%3Dx%26hlk1%3D8234384%26hlk2%3D8317112%26hlkwa%3D2790905%20refurl%3D%22%22">
	</script>
	<center>
	<!-- Yahoo 1x1 tracking pixel delivery script -->
	<script language="JavaScript" type="text/javascript" src="http://us.adserver.yahoo.com/a?f=96843138&p=health&l=FSRVY&c=sr">
	</script>

	-- #t behaves strangely with hashtables & nil values
	function table_length(t)
	local count = 0
	for _ in pairs(t) do count = count + 1 end
	return count
	end

	function Test(test, expectation)
	return {
	test = test,

	=begin
	Allows for a data structure to be safely evolved hierarchically during testing

	Example:

	context "with one try" do
	with_data tries: 1
	describe "with suppressed exceptions" do
	with_data raise_on_fail: false
	specify { retry_raise_hell(1, my_data).should be_nil }

	# Find expression that created a variable
	find_expr <- testthat:::find_expr


	includes <- function(x, included) {
	if (length(included) > 0) {
	if (is.list(included)) {
	for (name in names(included)) {
	if (!all(x[[name]] == included[[name]])) {
	return(FALSE)

	add = function(., name, p) {
	data <- list(name=name, type=p$..Name, data=as.list(p))
	.$collection()$insert(data)
	},

	get = function(., name) {
	doc <- .$collection()$query_one(name=name)
	if (!is.null(doc)) {
	factory <- base:::get(doc$type, pos=1)
	do.call(factory$new, doc$data)